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CONVERSION  TABLE 

This  thesis  has  been  written  in  U.S.  Customary  units.   Below  are  some 
basic  SI  unit  conversion  factors. 


To  convert  from 

BTU 

BTU  per  Pound  mass-°F 

Cubic-feet 

•F 

Feet 

Foot-pound 

Foot-pound  per  year 

Gallons 

Gallons  per  day 

Inches 

Kilowatt-hour 

Pound  mass 

Pound  per  cubic  foot 

Pound  per  square  foot 

Pound  per  square  inch 


to 
Joules 

Joule  per  Kilogram-°K 
Cubic-meters 
•K 

Meters 
Joules 
Kilowatt 
Liters 

Liters  per  day 
Centimeters 
Joules 
Kilogram 


Multiply  by 
1054.8 
4187 
0.0283 

CF    *   460)/1.8* 
0.305 
1.365 
42.757 
3.785 
3.785 
2.54 
3.6  E*6 
0.454 


Kilogram  per  cubic  meter      16.018 
Kilopascal  0.0479 

Kilopascal  6.895 


Use  the  formula  as   is.      Do  not  multiply   by   *F. 


CHAPTER  ONE 
INTRODUCTION 

Residential  water  conservation  is  becoming  increasingly  important  as 
water  demands  and  costs  increase,  and  existing  supplies  become  less  ade- 
quate.  The  Kansas  State  Water  Plan  studies  [1]  predict  severe  water  supply 
shortages  in  southeast,  south-central  and  east-central  Kansas  in  the  coming 
decades.   Large  interbasin  water  transfers  have  been  proposed  to  satisfy 
these  future  demands.   Water  transfer  legislation  passed  in  1983  requires 
the  transferee  to  have  a  water  conservation  program  in  place  before  a 
transfer  can  be  approved.   Public  input  to  the  Kansas  State  Water  Plan 
listed  water  conservation  as  a  top  priority  for  solving  water  problems. 
Public  comments  at  the  Extension  Water  Policy  Seminars  indicate  widespread 
interest  in  household  water  conservation.   The  Kansas  Water  Resources 
Research  Institute  identified  a  major  educational  program  in  domestic  water 
conservation  as  a  priority  need  in  its  Five-Year  Research  and  Development 
Plan  (1980).   No  such  program  currently  exists  at  the  state  level. 

Conservation  should  be  viewed  as  an  alternative  to  developing  new 
water  supplies,  since  water  conserved  from  existing  supplies  can  be  made 
available  to  new  users.   If  an  effective  residential  conservation  program 
could  produce  savings  of  10  to  20  gallons  per  person  per  day,  then  a  state- 
wide program  could  save  20  to  40  million  gallons  per  day  (mgd).   For 
comparison,  the  city  of  Wichita  averaged  39  mgd  in  1984. 

To  succeed  in  a  water  conservation  program,  the  public  must  first  be 
made  aware  of  their  water  habits.   The  Kansas  Department  of  Health  and 
Environment  wants  to  establish  a  municipal  water  conservation  education 
program  [1] .   The  purpose  of  the  program  would  be  to  encourage  and  assist 
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local  governments  in  educating  the  public  about  their  water  habits  and  to 
assist  them  with  the  implementing  of  simple  water  saving  techniques  (i.e., 
low  flow  shower  heads,  aerated  water  faucets,  and  water  displacement 
devices  in  toilet  tanks). 

Methods  used  in  the  past  to  educate  the  public  include  mailing  infor- 
mation packets  to  the  customer  C2] ,  or  distributing  the  educational  mate- 
rial door-to-door  £31 .   The  microcomputer  has  now  become  an  educational 
tool  used  in  water  conservation.   In  1983,  the  Virginia  Water  Resources 
Research  Center  <VWRRC)  developed  an  educational  module  on  the  Apple  II 
Plus  microcomputer  that  was  used  in  water  exhibit  shows  to  promote  residen- 
tial water  conservation  [43 .    The  module  covered  a  broad  spectrum  of  water 
topics:   the  hydrologic  cycle,  water  and  human  health,  water  pollution  and 
treatment,  and  water  conservation.   Media  included  audio-visual  displays, 
hands-on  demonstrations,  a  computer  game,  and  printed  materials.   The 
exhibits  were  presented  in  a  cartoon  format  directed  at  the  seventh-grade 
educational  level.   During  the  study  period,  the  module  was  viewed  by  about 
50,000  persons  at  museums,  fairs,  and  shopping  malls.   Surveys  showed  the 
module  to  be  an  effective  device  for  transmitting  basic  knowledge.   A  major 
limitation  was  that  the  module  failed  to  show  any  direct  financial  incen- 
tives for  residential  water  conservation. 

The  objective  of  the  work  presented  herein  is  to  develop  a  computer 
program  which  is  to  be  the  main  feature  of  a  demonstration  module  on  cost- 
effective  residential  water  conservation  methods  applicable  to  Kansas.   The 
module  is  intended  to  promote  household  water  conservation  inside  the  home 
by  increasing  individual  awareness  of  the  direct  personal  financial  bene- 
fits of  various  conservation  measures.   The  microcomputer  program  is  to 
provide  the  user  with  personalized  recommendations  and  savings  estimates  of 


water  and  dollars.   It  is  available  on  5-1/4  inch  floppy  diskette  for  both 
the  Zenith  Z-100  and  Z-150  (IBM-PC  compatible)  computers.  The  nodule  is  intended 
to  become  part  of  an  ongoing  water  conservation  program  of  the  Cooperative 
Extension  at  Kansas  State  University  and  part  of  the  education  program  pro- 
posed by  the  Kansas  Department  of  Health  and  Environment.   Additional 
perspective  users  are  municipal  water  offices,  rural  water  districts,  other 
water  related  organizations,  and  civic  organizations. 


CHAPTER  TWO 
METHODOLOGY 

The  in-home  residential  water  conservation  computer  program  <a  com- 
plete listing  is  available  in  Appendix  A)  consists  of  two  main  sections—the 
utility  rates  and  water  habits  sections.   The  utility  rates  section  deter- 
mines the  orgin  and  cost  of  the  user's  water  along  with  the  type  and  cost  of 
energy  used  to  heat  their  water.   The  water  habits  section  analyzes  how  an 
individual  utilizes  his/her  water.   The  description  of  how  each  section  was 
developed  follows. 

Utility  Rates 

Water  and  energy  are  the  two  utilities  of  concern  in  this  program. 
There  are  three  sources  of  water  available  to  the  public:  municipal  water 
plants,  rural  water  districts,  and  private  wells.   The  three  common  energy 
sources  used  to  heat  water  are  electricity,  natural  gas.  and  liquid  pro- 
pane.  The  following  paragraphs  will  discuss  the  three  water  utilities 
individually.   The  energy  utilities  are  discussed  in  a  separate  section. 

Municipal  Water  Plant  Rates:    The  municipal  water  rates  for  cities 
and  towns  in  Kansas  were  obtained  from  the  state's  1984  annual  report  [5], 
The  report  included  the  monthly  cost  of  water  per  1000  gallons  for  384 
communities.   The  majority  of  the  communities  charge  their  customers  based 
on  a  declining  block  rate,  i.e..  the  more  water  used,  the  cheaper  the  rate 
charged.   Therefore,  a  marginal  rate  cost  between  5000  and  10,000  gallons 
per  month  was  calculated  and  used  in  the  program  since  a  typical  household 
of  four  averages  about  8000  gallons  of  water  per  month  C63 .   Rates  between 
5000  and  10,000  gallons  per  month  were  used  because  it  is  water  from  this 


portion  of  the  rate  schedule  that  will  be  saved.   The  marginal  cost  is  less 
than  the  total  average  cost  of  all  the  water  units.   Most  rates  have  a  fixed 
monthly  cost  for  hookup  or  debt  retirement,  regardless  of  the  quanity  of 
water  used.   The  report  lists  the  Monthly  cost  of  water  at  5000  and  10,000 
gallons,  and  the  marginal  rate  was  obtained  by  dividing  the  difference 
between  the  two  costs  values  by  five  to  obtain  a  marginal  cost  per  1000 
gallons. 

These  rates  were  entered  into  the  Z-100  microcomputer  via  a  program 
called  Multiplan--a  Microsoft  spreadsheet  program.   The  advantage  of  this 
program  is  the  ability  to  manipulate  files:  sorting,  arithmetic  operations, 
and  printing.   The  information  entered  into  Multiplan  included  the 
community's  name,  and  the  cost  of  water  at  5000  and  10,000  gallons  per 
month.   The  formula  used  to  calculate  the  marginal  rate  was  also  entered. 
The  community's  name  and  marginal  water  rate  were  printed  to  a  diskette  as 
data  files  which  are  used  in  the  conservation  module  as  sequential  files. 
These  files  aid  the  user  who  does  not  know  his  marginal  water  rate.   The 
operation  of  the  program  to  make  use  of  these  files  is  explained  in  the 
following  paragraphs. 

Community  water  rates  are  grouped  in  six  different  files.   Five  con- 
tain communities  grouped  by  population  and  the  sixth  contains  the  communi- 
ties that  charge  their  customers  a  flat  fee  for  water.   The  division  of  the 
communities  by  population  is  as  follows:  over  100,000,  10,000  to  99,999, 
5000  to  9999,  1000  to  4999,  and  999  or  less.   Files  are  divided  into  these 
groups  to  match  a  question  which  asks  the  user  for  the  population  of  his 
community.   The  program  user  enters  a  number  appropriate  to  his  community's 
population. 

Next,  the  computer  asks  the  user  from  what  source  his  water  is  sup- 


plied:  municipal  water  plant,  rural  water  district,  or  a  private  weil.   With 
reference  to  muncipal  water  plants,  the  computer  then  asks  the  user  if  his 
water  is  metered.   If  so,  the  units  in  which  the  metering  device  operates 
Bust  be  known,  since  some  communities  meter  in  gallons  of  water  while  others 
meter  in  cubic  feet.   If  the  user  does  not  know  how  his  water  is  metered, 
then  he  is  encouraged  to  enter  the  response  that  corresoonds  to  qallons 
since  this  is  how  the  manor ity  of  the  water  in  Kansas  is  metered.   If  the 
user's  water  is  not  metered,  then  the  program  assumes  that  he  are  charged  a 
flat  fee  for  his  water. 

If  the  user's  water  is  metered,  the  urogram  asks  the  user  to  input  his 
monthly  marginal  water  cost  for  either  units  (dollars  oer  thousand  qallons 
or  hundred  cubic  feet).   If  the  user  does  not  know  (very  few  will  know), 
then  the  computer  will  access  the  sequential  files  based  on  the  user's 
response  to  the  population  question  and  display  the  names  of  the  communities 
on  the  screen.   If  the  file  contains  less  than  24  communities,  then  the 
entire  list  of  those  communities  along  with  a  line  number  beside  each  will 
be  displayed.    The  user  then  enters  the  line  number  that  corresponds  to 
his  community.   For  files  with  more  than  24  communities,  the  user  is  asked 
to  enter  the  first  letter  of  his  community's  name.   The  program  will  search 
the  files  for  names  beginning  with  the  letter  entered,  and  will  print  the 
list  on  the  screen.   Then,  the  user  is  asked  to  enter  the  line  number  that 
corresponds  to  his  community's  name  if  listed.   If  it  is  not  listed,  then  a 
default  value  will  be  used  which  is  the  average  marginal  water  rate  for  the 
cities  in  the  population  range  chosen  previously.   Table  2.1  shows  the 
default  values  for  each  population  range.   A  list  of  the  files  showing  the 
names  and  marginal  water  costs  for  Kansas  cities  and  towns  is  shown  in 
Appendix  C,  Tables  C.l  through  C.5. 


Table  2.1   Average  marginal  water  rates  for  municipal  water 
plants  in  Kansas  for  five  population  ranges--used 
as  default  values  for  the  marginal  water  cost. 


Averaqe 

Marqinal 

Water 

Rate 

Population  Ranqe 

S/1000-qall 

ons 

S/100 

-cubic  feet 

Greater  than  100,000 

1.22 

0.91 

10,000  to  99,999 

1.31 

0.98 

5,000  to  9.999 

1.42 

1.06 

1,000  to  4,999 

1.26 

0.94 

less  than  999 

1.70 

1.27 

Source:   [5] 

This  annual  water  cost  is  computed  as  1.3  tines  the  cost  of  the  total 
annual  water  use,  computed  at  the  marginal  rate.   The  1.3  factor  accounts 
for  service  charges. 

The  program  assumes  that  unmetered  homes  are  charged  a  flat  monthly  fee 
for  water,  and  asks  the  user  to  enter  this  fee.   If  the  person  does  not  know 
this  fee,  then  a  list  of  Kansas  towns  that  charge  a  flat  fee  will  appear  on 
the  screen.   The  user  can  then  enter  his  community  if  listed,  or  a  default 
value  of  $7.86  per  month  will  be  used.   This  default  value  is  the  average  of 
the  flat  fees  charged  by  the  towns  in  this  list.   A  listing  of  the  file 
containing  the  towns  that  charge  a  flat  fee  is  shown  in  Appendix  C,  Table 
C.6. 

Communities  that  charge  flat  fees  offer  no  financial  incentives  for 
their  customers  to  conserve  water.   The  program  never  uses  the  flat  fee 
cost.  The  user  is  asked  anyway,  so  they  nay  at  least  Know  what  they  are 
paying  for  water.   The  program  does  inform  the  user  via  the  printer  that 
conserving  water  will  not  save  the.  Honey  on  their  water  bill,  but  does 
point  out  potential  savings  in  energy  costs  made  possible  by  conservation. 


Rural  Water  District  Rates:   Rural  water  districts  (RWD's)  usually 
serve  households  in  rural  areas,  but  sometimes  serve  small  towns  adiacent  to 
bigger  cities.   Kansas  has  275  RWDs  scattered  throughout  the  state.   An 
attempt  to  locate  a  complete  list  of  the  districts'  rate  schedule  was  unsuc- 
cessful.  The  author  therefore  sent  a  letter  to  each  district  requesting  a 
copy  of  its  current  rate  schedule.   The  Kansas  Rural  Water  Association 
provided  a  list  of  the  districts'  addresses  along  with  stick-on  mailing 
labels.   Of  the  275  districts  contacted,  174  (63  percent)  supplied  the 
requested  information . 

The  majority  of  the  RWDs  operate  on  a  declining  block  rate  system. 
Thus,  a  marginal  rate  was  calculated  in  the  same  manner  as  the  municipal 
water  rates.   The  RWD  names,  numbers,  and  marginal  rates  were  entered  in 
Nultiplan,  and  an  alphabetical  list  was  printed  to  a  diskette  as  a  data 
file  to  be  used  in  the  conservation  program  as  a  sequential  file.   A  list 
of  the  file  is  shown  in  Appendix  D,  Table  D.2. 

The  RWD  sequential  file  is  used  as  an  aid  for  the  program  users  who  do 
not  know  their  RWD's  marginal  water  rate.   The  user  who  indicates  that  his 
water  is  supplied  by  a  RWD  will  be  asked  to  enter  his  marginal  rate.   If 
he  does  not  know,  then  he  is  asked  to  enter  the  first  letter  of  his  RWD's 
name.   The  program  then  searches  the  file  for  those  districts  that  begin 
with  that  letter,  and  displays  them  on  the  screen.   The  user  is  then  asked 
to  enter  the  line  number  corresponding  to  his  district,  if  listed.  If  it  is 
not  listed,  a  default  value  of  €2.41  per  1000  gallons  per  month  will  be  used 
for  computing  the  annual  water  cost.   The  $2.41  was  obtained  by  averaging 
the  marginal  rates  for  the  districts  replying  to  the  survey  letter.   The 
marginal  water  rates  ranged  from  SO. 50  to  S6.50. 

The  total  annual  water  cost  is  comDuted  as  1.5  times  the  cost  of  the 
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total  annual  water  use  computed  at  the  marginal  rate.   The  1.5  factor 
accounts  for  debt  retirement  bonds  and  service  charges. 

Private  Wells:    Many  people  in  rural  Kansas  operate  their  own  wells. 
The  cost  of  operating  a  well  depends  on  the  cost  of  the  electricity,  pump, 
and  drilling.   Since  the  last  two  are  extremely  variable,  the  program  only 
includes  a  question  about  electricity  costs  required  to  pump  the  water. 

The  cost  analysis  for  a  private  well  user  is  based  on  the  cost  re- 
quired to  pump  the  water  from  the  well  to  the  pressure  reservoir  (see  Fig. 
2.1).   To  start  the  cost  analysis,  the  depth  of  the  well  must  be  known.   The 
program  asks  the  user  to  enter  the  depth  of  his  well  in  feet.   If  he  has 
absolutely  no  idea  of  his  well  depth,  then  he  will  be  encouraged  to  enter 
a  default  value  of  50  feet. 

The  cost  analysis  is  based  on  simple  fluid  mechanics  principles  and 
Bernoulli's  equation,  Eq.  2-1.   The  hydraulic  system  under  consideration 

Pl/V  *  Zi  *  Vi2/2g  =  P2/-y  *  Z2  *  V22/2g  *  Shf  *  2h„  -  ho    (2-1) 

where  P  ■  pressure  (psf). 

y  -   unit  weight  of  water  (62.4  lb/ft3). 

Z  »  height  from  some  arbitrary  datum  (ft). 

V  ■  water  velocity  (ft/s), 

g  ■  gravitational  constant  (32.2  ft/s2). 
hf  »  friction  loss  (ft). 
h«  =  minor  losses  (ft), 
hp  •  pumping  head  (ft), 
and  points  1  and  2  are  defined  in  Fig.  2.1. 

extends  from  the  water  table  (point  1)  to  the  pressure  reservoir  at  the  home 
(point  2) .   The  head  loss  due  to  friction  and  minor  losses  was  assumed  to  be 
10  percent  of  the  total  well  depth.   The  pressure  in  the  reservoir  tank  (P2) 
was  assumed  to  be  40  psig.   Since  Pi  »  0,  Zi  =  0,  and  Vi  =  V2  ■  0).  Eq.  2-1 
becomes: 


Home 


Pressure    Reservoir    Tank 


Water 
Table 


Depth,  az 


Figure    2.1        Schematic    of    home-well    setup.   The    circled 
members    one    and    two    are    the  beginning 
and    end    of    the    hydraulic    system, 
respectively. 


in 


hp  =  P2/7  *  CZ   *  2(hf  *  h„)  =  92.3  ♦  1.14Z         (2-2) 

where  AZ  is  the  depth  of  the  well.   To  calculate  the  power  required  to  pump 
the  water  for  one  year,  the  following  equation  was  used: 

P  =  [(365/7.48)  •  7  •  Q  •  hp)  /  -^p  (2-3) 

where         P  =  power  (ft-lb/yr) , 

Q  =  flow  rate  per  day  (gpd), 
TP  3  pump  efficiency. 

The  coefficients  365  and  7.48  are  the  number  of  days  per  year  and  gallons  of 
water  per  cubic  feet,  respectively.  To  estimate  the  cost  of  operating  the 
pump  for  one  year,  the  cost  of  electricity  per  kilowatt-hour  (kwh)  must  be 
supplied  by  the  user.  If  the  user  does  not  know  this  cost,  a  default  value 
of  eight  cents  per  kwh  is  used.  The  variable  name  used  in  the  program  for 
the  cost  of  electricity  is  KWnT.  Therefore,  the  annual  pumping  cost  (APC) 
is  calculated  as: 

APC  *  k  »  P  «  KWAT  (2-4) 

where         APC  =  annual  pumping  cost  (S/yr), 

k  =  unit  conversion  factor  •  3.766  x  10"7  kwh/ft-lb, 
P  =  power  (ft-lb/yr), 
KWAT  =  electricity  cost  (S/kwh) . 

The  actual  equations  used  in  the  program  are  shown  in  Eqs.  2-5  and 

2-6.  The  coefficient  62.4  is  the  unit  weight  of  water  in  pounds  per  cubic 

foot  and  144  is  a  unit  conversion  from  square  inches  to  square  feet  (see 

Eq.  2-5).   In  Eq.  2-6,  the  coefficient  365  converts  from  days  to  years. 

P  =  (62.4  •  SUM  /  7.48  •  (1.1  •  DEPTH  ♦  144  •  40  /  62.4))  /  .25     (2-5) 

where         P  =  power  (ft-lb/day>, 
SUB  =  0  (gpd), 
1.1  »  DEPTH  =  well  depth  plus  friction  loss,  hf  (ft). 
40  =  P2  (psi), 
.25  =  -no. 
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APC  =  P  «  3.766E-07  •  KWAT  «  365  (2-6) 

Energy  Rates:    The  energy  required  to  heat  water  in  a  home  is  a  major 
expense.   As  a  rule  of  thumb,  the  energy  cost  for  heating  water  is  about  two 
to  four  times  the  cost  of  water.   The  water  conservation  program  approxi- 
mates this  cost  for  the  three  conon  energy  sources  most  commonly  used  to 
heat  water:   electricity,  natural  gas,  or  liquid  propane  (LP). 

The  general  thermodynamic  equation  used  to  calculate  the  energy  cost 
is  given  by  Eq.  2-7a.   The  mass  is  equal  to  the  total  volume  of  hot  water 

0  »  m  »  c  »  AT  (2-7a) 

where         0  =  thermal  heat  (BTU), 

a  ■  mass  (lb*), 

c  =  heat  capacity  (BTU/lbm-'F) , 

AT  =  temperature  change  (*F). 

used  yearly  (gal/yr)  times  the  conversion  of  3.34  lbm/gal  which  yields 
pounds  mass  per  year.   The  increase  in  temperature  is  assumed  to  be  60*F. 
The  heat  capacity  constant  is  equal  to  1  BTU/lbm-#F.   In  the  program,  the 
variable  name  HOTSUM  represents  the  total  daily  hot  water  consumed  in  gal- 
lons per  day.   To  obtain  the  total  annual  amount  of  hot  water,  HOTSUM  is 
multiplied  by  365  days  per  year.   After  substituting  these  into  Eq.  2-7a, 
the  equation  takes  the  form  of  Eq.  2-7b,  with  0  having  the  units  of  BTU  per 
year. 

0  =  182,646  HOTSUM  (2-7b) 

Table  2.2  shows  the  available  number  of  BTUs  per  unit  of  energy  for  elec- 
tricity, natural  gas,  and  LP  gas.  The  program  stores  the  values  shown  in 
Table  2.2  under  the  variable  name  BTU.   Each  of  these  three  energy  sources 
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have  a  certain  efficiency  at  which  they  produce  heat.   Table  2.3  shows  the 
efficiency  ratings  generally  used  for  the  three  heat  sources. 

Table  2.2  Available  BTUs*  per  unit  of  energy. 

Energy  Type  Available  BTUs 

Electricity  3414  BTU/kwh' 

Natural  Gas  1,000,000  BTU/MCF* 

Liquid  Propane  95,000  BTU/gal9 


*  BTU  =  British  Themal  Unit, 

*  kwh  *  Kilowatt -hour, 

*  HCF  «  Thousand  Cubic  Feet, 
9  gal  =  gallon. 

Source:  [7] 


Table  2.3   Efficiency  ratings  for  the  three  energy  sources 
commonly  used  to  heat  water. 


Energy  Type 

Electricity 
Natural  Gas 
Liquid  Propane 


Efficiency 

0, 

,90 

0, 

,70 

0, 

,70 

The  final  unknown  is  the  cost  of  the  energy,  which  has  the  variable 
na»e  ENERGYC05T.   The  program  uses  default  values  for  ENERGYC0ST  if  the  user 
does  not  know  his  energy  cost  (see  Table  2.4).   If  the  user  wishes  to  enter 
his  energy  cost,  it  nust  lie  within  the  ranges  shown  in  Table  2.4.   These 
ranges  were  established  by  the  author  to  eliminate  the  possibility  of 
entering  an  outlandish  value  for  ENERGYC0ST. 

With  this  information,  the  annual  energy  cost  (AEC)  to  heat  the 
water  can  be  calculated  by  Eq.  2-8.   The  actual  equation  used  in  the 
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Table  2.4   Energy  cost  default  values  and  ranges. 


Energy  Type 

Electricity 
Natural  Gas 
Liquid  Propane 


Default  Cost 

S0.08/kwh* 
S5.50/HCF* 
S0.70/gal! 


Cost  Range 

SO. 05  to  SO.ll/kwh 
S2.00  to  S9.00/MCF 
SO. 50  to  S1.25/gal 


*  kwh  =  Kilowatt-hour. 

*  liCF  =  Thousand  Cubic  Feet, 

*  gal  ■  gallon. 


AEC  =  (182.646  »  H0T5UI1  *  ENERGYCOST)  /  (BTU  •  EFF)       (2-8) 

progran  does  not  combine  the  terns  that  make  up  the  coefficient,  182,646. 
The  formula  used  in  the  progran  is  shown  in  Eq.  2-9,  with  the  terms  defined 
above. 


AEC  =  ENERGYCOST  •  8.34  •  60  /  BTU  /  EFF  •  HOTSUM  «  365 


(2-9) 


Water  Habits 

Once  the  computer  is  informed  about  the  user's  utility  rates,  it  asks 
questions  to  determine  the  user's  water  use  habits.   The  information 
requested  from  the  user  deals  strictly  with  water  uses  within  the  home 
(e.g.,  bathing,  clothes  washing,  etc.),  which  are  called  water  functions. 
It  does  not  include  lawn,  garden,  or  house-plant  watering  or  any  outside 
use.   The  water  functions  covered  in  the  progran  are  water  softening 
(United  to  private  well  users),  bathing/showering,  shaving  (United  to 
males),  flushing  toilet,  brushing  teeth,  washing  hands,  dishwasher/dish- 
washing by  hand,  drinking  water,  and  washing  clothes. 

The  program  asks  the  user  questions  about  the  water  functions  and  uses 
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his  responses  to  analyze  his  habits.   This  analysis  is  based  on  an  average 
water  user,  i.e.,  one  who  usee  approximately  64  gallons  of  water  per  day. 
Table  2.5  shows  the  baseline  of  in-home  water  use  for  a  typical  family  of 
four. 

Table  2.5  Baseline  water  use  for  a  typical  family  of  four. 


Water  Function 

qal/dav 

qa 

1/d 

ay/person 

Percent  of  Total 

Toilet 

100 

25 

40 

Bathing/Showering 

80 

20 

30 

Laundry 

35 

9 

15 

Dishwasher 

15 

4 

5 

Kitchen  sink 

12 

3 

5 

Lavatory  &  Utiltiy 

si 

nk 

13 

3 

5 

TotaJ 

s 

255 

64 

100 

Source:   [81 

The  answer  to  each  of  the  water  function  questions  (excluding  water 
softening  and  toilet  flushing)  is  either  acceptable  or  unacceptable.   An 
acceptable  response  is  one  that  does  not  exceed  with  the  baseline  values  in 
Table  2.5,  and  an  unacceptable  response  is  one  that  exceeds  the  baseline 
values.   For  example,  for  a  user  who  bathes  by  showering,  the  program  will 
ask  how  long  <in  minutes)  he  spends  in  the  shower.   For  a  conventional 
shower  head  that  releases  four  gallons  of  water  per  minute,  the  acceptable 
answer  would  be  five  minutes  or  less.   If  a  user  showers  longer  than  five 
minutes,  then  the  computer  informs  him  later  via  the  printer  that  the  length 
of  time  he  spends  in  the  shower  is  wasteful.   The  other  questions,  except 
water  softening  and  toilet  flushing,  are  handled  in  the  same  manner.   These 
two  water  functions  are  excluded  because  of  the  diffuculty  in  determining 
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why  someone  flushes  his  toilet  more  than  average,  and  because  of  the  large 
variation  between  water  softeners. 

Each  water  function  contributes  to  the  total  amount  of  water  a  person 
uses.   Once  a  person  answers  a  question,  the  program  will  sum  the  cold 
and/or  hot  water  used  by  that  function  to  the  variables  SUH  and  HOTSUH, 
respectively.   The  variable  SUM  includes  all  the  water  used  by  a  water  func- 
tion, including  water  that  is  heated.   HOTSUH  is  only  that  portion  of  water 
heated  for  a  water  function. 

As  mentioned  earlier,  each  question  has  an  acceptable  and  unaccept- 
able answer.   The  amount  of  water  added  to  SUM  for  an  acceptable  answer  is 
based  on  the  baseline  values  in  Table  2.5.   The  amount  added  for  an 
unacceptable  answer  was  the  judgment  of  the  author.   Table  2.6  shows  the 
possible  responses  to  the  water  function  questions  and  the  amount  of  water 
summed  for  each  response. 

The  amount  of  water  added  to  HOTSUH  is  a  fraction  of  the  full  amount 
of  the  water  used  in  a  function.   For  example,  if  a  conventional  bathtub 
was  filled  one-quarter  full,  there  would  be  approximately  20-gallons  of 
water  used,  and  67  percent  <13.4-gallons)  would  be  hot  water.   Table  2.7 
shows  the  percent  of  water  heated  for  each  water  function  based  on  the 
author's  judgment. 
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Table  2.6  Possible  responses  to  water  habit  questions. 


Water 
Function 

Water 
Softening 

Bathing* 
Shower 


Bath 


Toilet 


Shaving 


Brushing 
Teeth 

Washing 
Hands 

Dishwashing" 
By  Hand 


Dishwasher 


Response  A/U* 

User  inputs  days  between      NA° 
regeneration  cycles. 


User  inputs  minutes  spent  A--5  min. 

in  shower.  or  less 

1.  Fill  tub  1/4  full.  A 

2.  Fill  tub  1/2  full.  U 

3.  Fill  tub  over  1/2  full.     U 

User  inputs  number  of  NA 
flushes  per  day. 


SUM 
(gpd) ! 


HOTSUM 
(gpd) 


1. 

Run  water. 

u 

2. 

Don't  run  water. 

A 

3. 

Don't  shave  w/  water. 

-- 

1. 

Run  water. 

U 

2. 

Don't  run  water. 

A 

1. 

Run  water . 

U 

2. 

Dont'  run  water. 

A 

1. 

Always  run  water. 

U 

2. 

Sometimes  run  water. 

u 

3. 

Never  run  water. 

A 

User  will  enter  number  of 
load  washed  per  day. 

1.  Always  wash  full  load.      A 

2.  Sometimes  wash  full  load.    U 

3.  Never  wash  full  load.       U 


30-gal.  per   0 
regeneration 


4  gal. 

67*  of 

per  min. 

SUM 

20 

13.4 

35 

23.5 

50 

33.5 

5  gal. 

0 

per  flush 

3 

3 

1 

1 

2 

0 

0.5 

0 

4 

1.32 

2 

0.66 

7 

5.6 

5 

4 

4 

3.2 

15  gal. 

100X  of 

per  load 

SUM 

Drinking       1.  Always  run  water. 

2.  Sometimes  run  water. 

3.  Never  run  water. 


1 

1 

0.5 


Clothes        User  enter  number  of  loads 
Washer         washed  per  week. 

1.  Always  wash  full  load.      A 

2.  Sometimes  wash  full  load.    U 
3.  Never  wash  full  load. U_ 


50  gal.    50*  of 
per  load    SUM 


*  A/U  =  acceptable/unacceptable;  '  gpd  =  gallons  per  day; 

*  either  of  the  two  options. 


'  NA  =  not  aDDlicable 
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Table  2.7  Percent  of  water  heated  in  each  water  function. 


Water  Function  Percent 

Water  Softener  0 

Shower/Bath  67 

Toilet  0 

Shaving  100 

Brushing  Teeth  0 

Washing  Hands  33 

Dishwasher  100 

Washing  Dishes  by  Hand  80 

Drinking  0 

Clothes  Washer  50 


IS 


CHAPTER  THREE 
DESCRIPTIVE  EXAMPLE 

This  chapter  contains  an  example  to   illustrate  how   the  program 
operates.      This  example  does  not  cover  all   the  possible  options;    there- 
fore,   a  detailed  flowchart  is  provided   at   the  end  of  this  chapter  to 
illustrate  the  different  paths   in   the  program.      A  complete  listing  of  the 
program    is   shown   in  Appendix   A.      A   glossary   of   the   variables   used    in   the 
program   is  shown   in   Appendix   3. 

Introduction   Instructions 

The  program  begins  with  the  title  "IN-HOME  WATER  CONSERVATION 
ANALYSIS",    printed  on  the  screen,    along  with  the  following   introduction: 


"This    program    asks    you    questions    to    determine    how    you 
use    water    at    home.       It    will    estimate    how    much    money    you 
spend    annually    on    water    and    energy    used    to    heat    your    water. 

At    the    end    of    the    session,    a    summary    table    will    be 
printed    on    the    printer    showing    how    each    function    (i.e. , 
showering,    dishwashing,    etc.)    contributes    to    your    annual 
consumption    of    water.       Along    with    the    summary    table,    some 
other    information    will    be    printed    explaining    ways    to    save 
you    money    by    conserving    water. 

Press    any    key    to    continue." 


Once  the  user  has  pressed  a  key  to  continue,    the  next  display  will   appear 
and   introduce  them  to  the  types  of  questions  that  will   be  asked  of  them. 
This   display   reads  as  follows: 


"There    are    two    types    of    questions    asked    in    this    program. 
They    are: 


1.  Multiple  choice  questions. 

2.  Fill-in-the-blank  questions. 
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To    answer    the    multiple    choice    questions,    you    need    only 
enter    the    number    that    corresponds    to    the    answer .       To    do 
this,    you    have    to    type    the    number    by    using    the    numbers 
across    the    top    of    the    key    board.       You    then    must    press    the 
key    marked    RETURN    to    complete    the    entry. 

Try    the    multiple    choice    example    below. 

What    time    is    it? 

[13       Before    12    o'clock    noon 

C23       Exactly    12    o'clock    noon 

C33       After    12    o'clock    noon  Answer    =       " 


The  user  then  enters  the  answer  at  the  flashing  cursor   located   to  the 
right  of  the  equal   sign.      The   program  does  not  check   the  answer   against 
the  computers  clock  since   it  cannot   be  assumed  that  the  Microcomputer's 
clock  is  running;    therefore,    someone  could  enter  the  wrong  answer   and  the 
computer  would  not  acknowledge  the  error.      This   is  not  a  problem  though, 
since  the  purpose  of  the  multiple  choice  example  is  to  give  the 
inexperenced  computer  user  a  sample  problem. 

If  the  user  makes  a  wrong  entry,    then  the  computer  will   display   a 
message  asking  that  he  enter  either  a  one,    two,    or  three,    and  will   then 
repeat  the  question.      This  will   continue  until   the  question   is  answered 
correctly.      If  the  user  answers  the  question  correctly  by  entering  either 
a  one,   two,    or  three,    then   the  computer  will   print  the  message   "Good   Job!" 
on  the  screen,    and  then  will    instruct  him   to  press  any  key  to  continue. 

The  next  screen  display  discribes  the  f ill-in-the-blank  question,    and 
gives  an  example  question.      This  display  reads  as  follows: 

"The    f ill-in-the-blank    question    allows    you    to    enter 
either    letters,    numbers,    or    symbols.       You    must    supply    the 
answer    to    the    question    that    is    asked . 

Answer    the    f ill-in-the-blank    example    below. 

Enter    your    first    name.  Answer    = 
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The  user  types  in  his  name  to  the  right  of  the  equal  sign.   For 
example  purposes,  suppose  the  user  entered  John.   After  completing  the 
entry  by  pressing  the  RETURN  key,  the  computer  will  display: 


"You  entered  your  name  as  John, 
la  this  spelled  correctly? 

[13  Yes 

121    No  Answer  = 


If  the  user  typed  his  name  incorrectly,  he  should  answer  by  entering 
number  two,  at  which  time  he  will  be  able  to  re-enter  his  name.   If  his 
name  is  spelled  correctly,  he  should  enter  a  one,  and  the  computer  will 
display: 

"Press  any  key  and  we'll  get  started  with  the  program." 

After  the  user  presses  any  key,  the  computer  will  start  the  second 
part  of  the  program--the  utility  rate  section. 

Utility  Rate  Information 

This  section  of  the  program  asks  the  user  questions  dealing  with  his 
utility  rates  for  water  and  energy.   The  following  example  is  based  on  a 
male  individual  living  in  Manhattan,  Kansas,  who  heats  his  water  with 
natural  gas.   As  mentioned  earlier,  the  program  branches  into  many  differ- 
ent categories  (e.g.,  water  supplied  from  municipal  water  plants,  rural 
water  districts,  or  a  private  well);  thus,  the  flow  diagram  at  the  back  of 
this  chapter  illustrates  the  different  branches  of  the  program.   The 
example  of  the  utility  section  will  not  include  much  discussion,  but  will 
follow  the  sequence  of  questions  asked  by  the  computer  program.   The 
numbers  shown  to  the  right  of  the  ANSWER  are  supplied  answers  to  the 
questions. 
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"Are  you  male  or  female? 
CI]  Male 
[23  Female 

Do  you  live  in  Kansas? 
[13  Yes 
[23  No 


Answer  =  1 


Answer  =  1 


What  is  the  population  of  your  community? 

CI J  Greater  then  100,000  people 

[23  Between  10,000  and  99,999 

[33  Between  5,000  and  9,999 

C43  Between  1,000  and  4,999 

[53  999  people  or  less 

[63  You  live  in  a  rural  area     Answer  =  2 

Where  does  your  water  come  from? 
C13  Municipal  water  plant 
£23  Rural  water  district 
[33  Private  well  Answer  ■  1 


Is  your  home  on  a  water  meter? 
[13  Yes 
[23  No 


Answer    =    1 


How    does    your    water    bill    read?       Most    bills    read    in    dollars 
per    one-thousand    gallons. 

[13    Dollars    per    one-thousand    gallons 

[23    Dollars    per    one-hundred    cubic    feet  Answer    =    2" 


The  response  to  this  question   is  number  two  since  Manhattan's  water   is 
metered  in  cubic  feet. 


"What    is    the    marginal    cost    per    one-hundred    cubic    feet    of 

water    per    month    where    you    live? 

Enter    the    amount    as    a    dollar    decimal. 

If    you    don't    know,    then    press    the    RETURN    key.       Answer    ■    RETURN" 


At  this  point,    the  computer  displays  a  list  of  community's  names 
having  a  population  that  ranges  between   10,000  and  99,999  people.      The 
screen   looks  as  follows: 


"You  entered  that  your  community  has  between  10,000  and 
99,999  people,  thus  the  reason  for  the  list  below.  In  the 
area  marded  ANSWER,  enter  the  line  number  that  corresponds 
to    your    community. 
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If    your    community    is    not    listed,    and    your    population 
size    ia    correct,    then    preas    the    key    marked    RETURN.       I£    you 
think    you    answered    the    question    dealing    with    your    peculation 
incorrectly,     then    type    the    key    marked    'H'    and    preas    RETURN. 


Line  No. 

Community 

1, 

Arkansas  City 

2. 

Atchison 

3. 

Chanuta 

4. 

Coffeyville 

5. 

Dodge  City 

6. 

El  Dorado 

7. 

Emporia 

8. 

Garden  City 

9. 

Hays 

10. 

Hutchinson 

11. 

Independence 

12. 

Junction  City 

Line    No. 

13. 
14. 
15. 
lb. 
17. 
IS. 
19. 
20. 
21. 
22. 
23. 


Community 

Lawrence 

Leavenworth 

Liberal 

Manhattan 

McPherson 

Olathe 

Ottawa 

Parsons 

Pittsburg 

Salina 

Winfield 


Answer 


16" 


After  entering  the  number   16  to  tell   the  computer  that  the  user's 
community   is  Manhattan,    the  program  then  displays  the  marginal  water  rate 
as  follows: 


"The    monthly    marginal    water    rate    for    Manhattan    is    SO. 60 
per    one-hundred    cubic    feet." 


The  program  continues  as  follows: 

"How    is    your    hot    water    heated? 
m    Electricity 
[2]     Natural    gas 
C33    LP   gas  Answer    =    2 

What    is    your    natural    gas   cost    per    1000   cubic   feet    <MCF>? 

Enter    the    amount    as    a    dollar    decimal     (e.g..    35.50). 

If    you    don't    know,    then    press    the    RETURN    key.       Answer    =    RETURN 

Then    I'll    use    an    estimate    cost    of    £5.50    per    MCF. 

Press    the    RETURN    key    to    continue." 

This  concludes  the  questions  about  the  utility   rates.      The  third  part 
of  the  program  will  question  the  user  about  his  water   use  habits. 
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Water  Habit  Infor»ation 

The  prograa  continues  once  the  user  presses  the  RETURN  key.      The 
explanation  of  this  section   is  sinilar  to  that  of   the  utility  rate  sec- 
tion,   i.e.,   there  will   not  be  nuch  discussion  about  the  questions  or 
supplied  answers.      Instead,    the  following  example  will   proceed   in  the  sane 
sequence  as  the  prograa  would  operate.      The   progran  continues  on  as 
follows: 


"Do    you    usually    take    a    bath    or  shower? 
CI]    Bath 
[21    Shower  Answer    ■    2 

How    many    minutes    do    you    spend    in    the    shower? 
Enter    your    answer    here.  Answer    -    10 

Estimate    how    many    times    a    day    you    flush    your    home    toilet. 
Enter    your    answer    here.  Answer    -    4 

Do    you    let    the   water    run    while  you    shave? 
[11    Yes 
C23     No 
133    Don't    shave    with    water  Answer    =    2 

Do    you    let    the    water    run    while  you    brush    your    teeth? 
CI]     Yes 
[21    No  Answer    ■    2 

Do    you    let    the    water    run    while  you    wash    your    hands? 
[11    Yes 
[21    No  Answer    ■    1 


Does    your    home    have    a    dishwasher? 
[11    Yes 
[21    No  Answer    ■    2 

Do    you    let    the    water    run    while    you    wash    and    rinse    the    dishes? 
[11    Yes 
[21    Sometimes 
[31    No  Answer    ■    3 

Do    you    let    the    water    run    to    get    cold    when    getting    a    drink? 
[13    Yes 
[21    Sometimes 
C31    No  Answer    =    2 
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Do  you  have  a  clothes  washer? 
El]  Yes 
C2J  No  Answer  =  1 

How  many  loads  do  you  wash  per  week?       Answer  ■  2 

Do  you  wash  a  full  load  of  clothes? 
C13  Almost  always 
[21  Sometimes 
[3]  Not  usually  Answer  =  1" 


This  concludes  the  water  habits  portion  of  the  program.   After  the 
user  answers  the  last  question,  the  screen  clears  and  the  following  mes- 
sage appears. 


"Thank  you  for  running  the  program.   Your  results  should 
be  coming  out  on  the  printer .   If  they  aren' t,  then  turn  the 
printer  on.   Thanks  again...." 


Printout  of  Results,  and  Recommendations 

When  the  program  concludes  with  the  user  interaction  portion,  it 
begins  printing  the  results  of  the  run  on  the  printer.   An  example  of  the 
printout  is  shown  in  Fig.  3.1. 

The  table  of  results  shows  an  annual  breakdown  of  the  water  functions, 
illustrating  the  amount  of  water  used  for  each  function,  and  the  amount  of 
money  spent  on  energy  for  heating  water.   The  sentence  directly  under  the 
table  informs  the  user  of  his  annual  water  and  energy  costs. 

The  values  in  the  table  are  calculated  in  a  manner  similar  to  those 
described  in  Chapter  Two.   The  total  and  hot  water  amounts  are  determined 
by  the  user's  responses  to  the  water  habit  questions,  and  are  based  on 
Table  2.6. 

Below  the  table  of  results  are  some  conservation  instructions.   These 
instructions  will  point  out  potential  economic  savings  to  the  user.   These 
instructions  are  printed  only  for  unacceptable  responses.   Their  purpose 
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Figure  3.1  Printout  of  the  results. 

W-a-tsx-   Conservation   Analysis.   Results 

Below  is  a  tabla  showing  /our  water  habits ,    John. 

Hot  Water 
Water  Used  (GelSyr)       Energy  Cost 
Water  Function        Total  Hot       <s/yr> 

Shower  14600  9782  38 . 50 

Toilet  7300               

Shaving  365  365  1.40 

Brushing  Teeth  183               

Washing  Hands  1460  482  1.90 

Dish  washing  1460  1168  4.60 

Drinking  365               

Clothes  Washer  5214  2607  10.30 

Total  »  30947  Totsl  »  14404 

Your  annual  gas  coat  to  heat  your  water  is  s  56.60  and  your  annual  water 

cost  is  3  32  per  year. 

BELOW  ARE  SOME  INSTRUCTIONS  THAT  MAY  HELP  YOU  CONSERVE  ON  WATER. 

You  spend  10  minutes  in  the  shower.  This  means  you  use  approximately  40  gallons 
of  water  par  shower  -   13  gallona  cold  and  27  gallons  hot  water.   If  you  would 
reduce  your  time  down  to  5  ■mutes,  you  would  use  sbout  20  gallons  of  water  per 
shower  -  7  gallons  cold  and  13  gallona  hot.   On  an  annual  basis,  this  could 
ssve  you  approxiaately  3  6  per  year  in  water  coat  and  3  20  per  year  in  the 
energy  required  to  heet  your  weter  (aaaualng  you  take  one  shower  each  dsy). 

Don't  run  the  weter  while  you  wesh  your  hands.   Put  a  stopper  in  your  sink  and 
fill  it  one-querter  full.   This  could  save  about  2  gallons  of  water  per  wsahing. 
Annually  you  could  save  91  per  yeer  on  weter  coat,  and  3  1  per  year  on  the 
energy  required  to  heet  the  weter  (assuming  you  wash  your  hands  twice  a  day.) 

Instead  of  letting  the  weter  run  to  get  cold  while  getting  a  drink,  place  a 
water  bottle  in  the  refrigerator  to  keep  the  water  cold. 

i3::::»33s33iiii3ui3ii«3:333i33aigii3>3j33;:a:33:33i«fnitllMIIIIIt|H||(|t|ll 

If  you  would  follow  the  instructions  above  you  could  save  approximately  3  7  per 
year  on  your  wster  bill,  and  3  21  per  year  on  energy  used  to  heat  your  water. 
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is  to  try  to  persuade  the  user  to  reduce  his  water  consumption  down  to  the 
baseline  value  of  64  gallons  per  day  by  showing  him  the  economic  benefits. 

The  last  sentence  on  the  printout  shows  the  user's  estimated  annual 
cost  savings  if  he  follows  the  conservation  instructions. 

Flow  Chart  of  the  Program 

The  following  flow  chart  (Fig.  3.3)  shows  the  many  different  paths  a 
user  may  follow  depending  on  his  situation.   Figure  3.2  is  a  pictorial 
description  of  the  different  figures  in  the  flow  chart.   The  flow  chart 
was  drawn  using  the  graphics  program  DOODLER  [93 . 
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Processing  Operation 


Output:  Screen  or  Printer 


Decision 


File  Operation 


Manual  or  Clerical  Operation 


N     Start/Stop 


C^> 


Goto/Gosub 


Figure  3.2  Description  of  the  figures  used  in  the  residential  water 
conservation  flow  chart . 
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Figure  3.3  Flowchart  of  the  Residential  Water  Conservation  Program. 
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Figure  3.3      (continued) 
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Figure  3.3      (continued) 
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Figure   3.3      (continued) 
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Figure  3.3      (continued) 
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Figure  3.3      (continued) 
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Figure  3.3      (continued) 
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Figure  3.3      (continued) 
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Figure  3.3      (continued) 
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Figure  3.3      (continued) 
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Figure   3.3      (continued) 
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Figure  3.3      (continued) 
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CHAPTER  FOUR 
PROGRAM  ANALYSIS 

Data  Collection 

Twenty-five  people  assisted  in  the  analysis  of  the  residential  water 
conservation  program  by  running  it.   This  sample  included  nine  faculity 
members  and  16  students  from  Kansas  State  University.   The  purpose  for 
asking  their  assistance  was  twofold.   First,  they  provided  a  check  of  the 
program's  integrity.   Second,  the  25  runs  provided  a  data  set  that  was 
extropolated  to  predict  the  amount  of  water  that  could  be  saved  if  the 
program's  conservation  instructions  were  followed.   All  25  users  were 
given  values  to  enter  for  the  utility  rate  questions  because  the  users  all 
lived  in  Manhattan,  Kansas.   This  enabled  most  combinations  of  the  program 
to  be  used,  thus  checking  the  programs  clarity  and  flexibility.   Each  user 
was  asked  to  critique  the  program  and  report  any  difficulties  he  had  while 
running  it.   All  functional  problems  reported  were  corrected. 

Data  Analysis 

Each  person  submitted  his  printout  to  the  author  for  statistical 
analysis.   The  analysis  was  done  on  an  annual  basis;  that  is,  attention 
was  paid  to  the  total  annual  amount  of  water  used  by  each  individual. 
Analyzing  the  potential  economic  savings  was  not  done  due  to  the  large 
variability  in  the  marginal  water  rates. 

The  annual  amount  of  total  and  hot  water  used  by  each  individual  was 
calculated  by  the  program  and  presented  in  the  table  of  results  on  the 
computer  printout.   The  potental  annual  savings  of  total  and  hot  water  for 
each  user  were  obtained  by  analyzing  the  conservation  suggestions  from 
each  user's  printout.   Table  4.1  shows  the  results  from  the  25  users.   The 
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column  labled  "Total"  under  the  heading  "Water  Used"  i3  the  total  anount 
of  cold 


Table  4.1 


Results  of  the  25  individuals  who  ran  the  Residential 
Water  Conservation  Program  (sorted  by  column  2>. 


Water 

Used 

Potential 

Savings 

(gal/yr) 

(gal/ 

fXi 

Observe 

ttion 
>r 

Nimbc 

Total 

Hot 

Total 

Hot 

1 

23,725 

8,862 

4,380 

2,431 

2 

23,725 

12,819 

9.855 

6,008 

3 

26,098 

16,104 

8,213 

4,986 

4 

26,567 

12,097 

4,745 

2,942 

5 

26,645 

12,089 

9,125 

5,278 

6 

29,383 

10,848 

913 

241 

7 

29,930 

15,739 

8,760 

4,986 

8 

31,599 

16,427 

913 

241 

9 

32,042 

15,426 

9,308 

6,008 

10 

33,033 

9,373 

4,928 

3,307 

11 

33,554 

15,635 

8,578 

5,278 

12 

34,466 

13,897 

2,190 

971 

13 

37 , 308 

17,731 

913 

241 

14 

39,837 

19,597 

17,885 

11,702 

15 

41,688 

23,352 

9.490 

5,957 

16 

41,975 

15,118 

13,505 

8,453 

17 

43,461 

20,953 

8,213 

4,986 

18 

43,644 

23,274 

16,608 

7,176 

19 

45,625 

18,294 

17,155 

11,118 

20 

46,981 

17,731 

1,460 

241 

21 

47,540 

21,244 

4,380 

2,431 

22 

49,730 

11,363 

1,460 

241 

23 

50,474 

19,806 

17,155 

10,972 

24 

51,648 

21,871 

23,178 

15.498 

25 

58,125 

25,055 

24,455 

8,782 

Sun: 

948,803 

414,705 

227,765 

130,475 

Dean: 

37,952 

16,588 

9,111 

5,219 

Max: 

58,125 

25,055 

24,455 

15,498 

Win: 

23,725 

8,862 

913 

241 

Range: 

34,400 

16,193 

23,542 

15.257 

water  used  annually  by  each  individual.   The  hot  water  is  a  fraction  of 
the  cold  water  used  by  the  water  functions  (e.g.,  67  percent  of  the  total 
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water  used  in  showering  was  estimated  to  be  hot  water). 

The  results  of  the  25  computer  runs  estimated  average  potential  sav- 
ings of  24  percent  for  the  total  water  and  32  percent  for  the  hot  water, 
if  all  suggestions  given  on  the  printout  were  followed.   Total  cost  sav- 
ings cannot  be  estimated  accurately  due  to  the  high  variability  in  the 
marginal  water  rates.   Using  the  average  unit  cost  of  €0.08  for  electric- 
ity, $5.50  for  natural  gas,  and  SO. 70  for  liquid  propane,  370,  S21,  and 
$27  per  year  could  be  saved  for  the  three  energy  sources,  respectively, 
based  on  the  mean  of  the  potential  hot  water  savings  shown  in  Table  4,1. 

Statistical  models  were  investigated  for  use  in  determining  the  excee- 
dance  probability  for  any  given  water  usage.   Seven  different  distribu- 
tions were  tested;  one  by  hand  calculations  and  the  other  six  with  the  aid 
of  a  Fortran  program  called  International  Math memo tical  and  Statistical 
Library  CIMSL)  £101 .   The  Continuous  Uniform  Distribution  (CUD)  was  the 
distribution  tested  by  hand  calculations.   The  six  distributions  tested  by 
using  IHSL  were  the  normal,  log-normal,  half-normal,  exponential,  Weibull, 
and  extreme  value  distributions.   Of  the  seven,  the  CUD  was  the  only  one 
which  seemed  to  fit  the  data  collected  from  the  25  computer  runs. 

The  goodness-of-f it  test  for  the  six  distributions  using  INSL  was 
simple.   A  few  lines  of  computer  code  were  written  to  read  the  data  file 
<see  computer  listing  in  Appendix  E);  then  a  subroutine  named  USPRP  was 
called  from  the  IHSL  program  which  analyzed  the  data  and  plotted  the 
points  on  the  appropriate  distribution  paper  (see  Appendix  E,  Figs.  E.l- 
E.6).   If  the  data  plotted  approximately  in  a  straight  line,  then  that 
distribution  was  acceptable;  otherwise,  the  data  did  not  fit  the  distribu- 
tion.  The  data  did  not  fit  any  of  the  six  distributions. 

To  test  the  fit  of  the  data  for  the  CUD,  the  first  step  was  to  plot 
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the  cumnulative  distribution  function  (c.d.f.)  for  both  the  theoretical 
and  observed  CUD  on  arithmetic  paper  <see  Appendix  E,  Fig.  E.7).   The 
Kolmogorov-Smirnov  one-sample  test  for  goodness  of  fit  test  Cll]  was 
carried  out  on  the  two  graphs.   The  critical  distance,  Dc»  for  a  Type  I 
error  with  alpha  equal  to  0.01  is  0.32.   The  maximum  distance,  D»,y, 
between  the  two  c.d.f.  plots  is  0.165,  which  is  less  than  Dc.   Therefore, 
the  null  hypothesis  (i.e.,  the  assumption  that  the  data  fitted  the  CUD) 
was  not  rejected.   Finally,  the  exceedance  probability  graph.  Fig.  4.1, 
was  constructed,  and  was  judged  to  be  acceptable  based  on  the  25  data 
points  obtained.   The  exceedance  probability  graph  is  the  complement  of 
the  c.d.f.   It  was  chosen  because  most  civil  engineers  are  accustomed  to 
working  with  this  type  of  probability  graph. 

Table  2.5  shows  that  an  average  individual  nationwide  uses  approxi- 
mately 64  gallons  of  water  per  day.   From  Table  4.1,  it  is  seen  that  the 
25  individuals  use  an  average  of  37,952  gallons  per  year,  or  104  gallons 
per  day--a  difference  of  40  gallons  per  day  when  compared  to  the  national 
average.   The  CUD  model  shows  a  slightly  higher  average  of  112  gallons  per 
day  (40,925  gallons  per  year).   Based  on  the  CUD  model,  the  difference  in 
the  baseline  value  of  the  average  daily  use  and  the  model  is  48  gallons 
per  day.   Assuming  that  the  sample  of  25  is  a  reasonably  good  sample  of 
how  people  in  Kansas  use  their  water,  it  is  concluded  that  there  is  a 
potential  for  saving  48  gallons  of  water  per  day  per  person,  or  17,520 
gallons  per  year  per  person.   Once  again,  it  is  not  possible  to  assign  a 
dollar  value  to  the  figure  of  48  gallons  per  day  since  the  water  rates 
throughout  Kansas  are  highly  variable. 

The  computer  program  should  be  used  in  other  parts  of  the  state  to 
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obtain  a  larger  and  nore  widespread  cross-sectional  saaple.   Such  a  saaple 
would  provide  a  more  reliable  check  on  the  apppropriateness  of  the  CUD. 
This  sample  would  also  provide  a  better  estinate  of  average  water  use 
within  the  state. 
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CHAPTER  FIVE 
CONCLUDING  REMARKS 

The  objective  of  this  work  was  to  develop  a  microcomputer  program 
that  could  be  used  to  educate  the  general  public  on  ways  to  conserve  water 
in  their  homes.   The  goal  of  the  program  is  to  provide  an  economic  incen- 
tive for  the  user  to  conserve  water. 

After  educating  the  public  on  how  they  use  their  water  at  home,  the 
next  step  is  to  educate  them  on  what  steps  they  would  follow  to  begin 
saving  water.   The  two  major  water  use  functions  in  the  home  are  the  toilet 
and  shower.   Toilet  flushing  and  showering  use  approximately  40  percent  and 
30  percent,  respectively,  of  the  total  water  used  at  home.   The  flush 
volume  of  most  conventional  toilets  (5  gallons)  can  be  reduced  by  at  least 
IS  percent  without  hindering  performance.   This  can  be  achieved  by  placing 
weighted  plastic  containers  or  other  displacement  devices  in  the  tank. 
Plastic  "dams"  are  available  for  about  $5.00  which  save  as  much  as  2.5 
gallons  per  flush.   Specially  designed  low-flush  toilets  can  reduce  flush 
volumes  by  70  to  90  percent,  but  are  rather  expensive,  and  have  a  long 
payback  period  compared  to  the  displacement  devices. 

The  cost  of  heating  water  averages  two  to  four  times  the  cost  of  the 
water.   Therefore,  large  cost  savings  can  be  achieved  by  reducing  hot  water 
use.   The  greatest  potential  here  lies  in  reducing  shower  flows.   Two  types 
of  shower  devices  are  common:   specially  designed  low-flow  shower  heads. 
and  flow  restricting  orifice  disks  which  are  placed  just  upstream  of  the 
existing  shower  head.   These  devices  can  reduce  shower  flows  by  40  percent. 
Although  shower  heads  are  more  expensive  than  the  flow  restrictors.  their 
performance  is  generally  more  satisfactory.   The  additional  cost  is  quickly 
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recovered  in  water  and  energy  savings,  in  most  cases  in  a  few  months. 
Additional  water  and  energy  conservation  can  be  achieved  through  the  use  of 
faucet  aerators  and  water  saving  dishwashers  and  clothes  washers.   Faucet 
aerators  can  reduce  water  use  in  sinks  and  lavatories  by  30  percent.   These 
are  especially  advantageous  where  dishes  are  washed  by  hand. 

The  author  hosted  a  water  conservation  exhibit  at  the  1985  Kansas 
State  University  Open  House.   The  exhibit  demonstrated  the  use  of  displace- 
ment devices  in  a  toilet  tank,  and  displayed  both  conventional  and  low-flow 
shower  heads.   Many  of  the  people  remarked  about  the  old  "brick  in  the 
toilet  tank"  method  of  displacing  water.   This  is  the  concept  that  the 
exhibit  was  trying  to  get  across  to  the  public,  but  this  particular  method 
was  discouraged  since  the  brick  will  start  to  break  down  and  fall  apart 
once  it  gets  satruated,  thus,  plugging  up  the  toilet  plumbing.   One  man 
remarked  that  he  found  a  dime  with  a  small  hole  drilled  in  it  placed  in  his 
shower  head  that  was  being  used  as  a  flow  restricting  orifice. 

Overall,  the  exhibit  proved  to  be  successful  in  educating  the  public 
about  ways  to  save  water,  but  the  people  seemed  to  need  an  incentive  to 
save.   This  is  where  the  water  conservation  program  developed  herein  can  be 
used.   Since  it  gives  an  economic  incentive  to  save  water,  and  since  saving 
money  is  the  goal  of  many  people  today,  then  the  use  of  this  program  is  a 
first  step  in  a  successful  education  program. 
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Appendix      A 


Residential   Water  Conservation  Program  Listing 
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Listing  of.  Residential  Water  Conservation  Program. 


1000  CLS 

1010  '*»»*»»»»*»»»*»»»«»»»»»»***««*•*»***»*****»*«*•*******»»**»**»**»»*»***»** 

1020  '« 

1030  '«  RESIDENTIAL  WATER  CONSERVATION  ANALYSIS  DEALING  WITH  IN-HOME  WATER  USE 

1040  '« 

1050  '•  Written  By:   John  R.  Hollenbeck 

1060  '*  Graduate  Student,  Civil  Engineering 

1070  '»  Kansas  State  University 

1080  '«  Supervised  By:   Dr.  Janes  Koelliker 

1090  '»  Professor,  Civil  Engineering 

1100  '»  Kansas  State  University 

1110  '» 

1120  '«  Date  Started:  4  January  1985 

1130  '•  Date  Completed:  3  November  1985 

1140  '« 

1 150  '*#***«<»*»*»■***********»»***»***»»*»*«»*»■**»**»***********•***•***•**** 

1160  ' 

1170  '•*•»#*«»••»»••»»•»#•»»*••*»*»*»••»••*••»••»•»••»•••**•*•*•»•••*****•*••*» 

1180  '» 

1190  '«       To  use  this  program,  refer  to  the  user's  manual  entitled  "User' 

1200  '•  Manual  for  Residential  Water  Conservation  Program"  written  by  John 

1210  '»  Hollenbeck,  Nov.  1985. 

1220  '» 

1230  '*  The  user's  manual  documents  all  of  the  variables  used  in  this 

1240  '*  program.   Some  of  the  variables  are  documented  in  the  program  listing 

1250  '*  but  for  a  complete  listing,  please  go  to  the  user's  manual. 

1260  '» 

1270  '»»»«»**»*»*»»»*»***»*»**»»****»**•*»<**»*»»»***■»•*********»****»•*****•* 

1280  ' 

1290  ON  ERROR  GOTO  12640 

1300  DIM  ASC69),  CITYSC69),  MCU1C18),  MCU2C18),  C0UNTYS<25),  RWDN0SC25) 

1310  DIM  RWDMWCC25),  FC(ll),  ALPHSC26) 

1320  ' 

1330  '*****»*»»»***»*****»*«*****»»»*»»*»**»»***<•*»**»<*»**»*»»»«»*»■»**»'»»*»*»* 

1340  '  ...   INTRODUCTION   »  «  • 

1350  '**«♦«»•»***»»*»****■**•*»*»*»»****»*»»****»******»**»'*»*»*»*»••»»»*.*»*•• 

1360  ' 

1370  CLS  :  COLOR  2,0 

1380  PRINT  TAB<22)  "IN-HOME  WATER  CONSERVATION  ANALYSIS"  :  COLOR  7,0 

1390  LOCATE  5,1 

1400  PRINT  "     This  program  will  ask  you  questions  to  determine  how  you  use  wa 

ter  at  home. It  will  estimate  how  much  money  you  spend  annually  on  water  and 

energy  used  to  heat  your  water  in  a  year." 

1410  PRINT 

1420  PRINT  "     At  the  end  of  the  session,  a  summary  table  will  be  printed  on 

the  printer  showing  how  each  water  function  (i.e.,  showering,  dishwashing,  etc.) 

contrib-    uites  to  your  annual  consumption  of  water.   Along  with  the  summary 

table,  some" 
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Listing  of  Residential  Water  Conservation  Program  (continued). 

1430  PRINT  "other  information  will  be  printed  explaining  ways  to  save  you  money 

by  conserving  water." 

1440  PRINT  :  PRINT 

1450  LOCATE  ,,0 

1460  PRINT  TAB (28)  "Press  any  key  to  continue." 

1470  AS  =  INPUTS (1) 

1480  CLS 

1490  PRINT  "     There  are  two  types  of  questions  asked  in  this  program.   They 

are: 

1500  PRINT 

1510  PRINT  TAB(15)  "1.   Multiple  choice  questions." 

1520  PRINT  TAB(15)  "2.   Fill-in-the-blank  questions." 

1530  PRINT 

1540  PRINT  "     To  answer  the  multiple  choice  questions,  you  need  only  enter 

the  number  that  corresponds  to  the  answer.   To  do  this,  you  have  to  type  the 

number  by  " 

1550  PRINT  "using  the  numbers  across  the  top  of  the  keyboard.   You  then  must 

press  the   key  marked  RETURN  to  complete  the  entry." 

1560  PRINT 

1570  PRINT  "Try  the  multiple  choice  example  below." 

1580  PRINT 

1590  LOCATE  ,,1 

1600  PRINT  "What  time  is  it?" 

1610  PRINT  "      [1]   Before  12  o'clock  noon." 

1620  PRINT  "      [23   Exactly  12  o'clock  noon." 

1630  INPUT  "      [3]   After  12  o'clock  noon.  ANSWER  =  ",ANSS 

1640  ' 

1650  '   Any  answer  will  be  accepted  as  long  as  the  user  enters  1,  2,  or  3.   The 

1660  '   reason  any  answer  will  be  accepted  is  because  some  machines  do  not  have 

1670  '   a  continous  clock  in  them,  so  I  could  not  check  their  answer  with  the 

1680  '   correct  time. 

1690  ' 

1700  IF  VAL(ANSS)  =  1  OR  VAL(ANSS)  =  2  OR  VAL(ANSS)  =  3  THEN  T  =  VAL(ANSS)  : 

GOTO  1720 

1710  PRINT  :  COLOR  7,1  :  PRINT  "  You  must  enter  either  1,  2,  or  3 Try 

again.  ";  :  COLOR  7,0  :  PRINT  :  GOTO  1600 

1720  PRINT  :  COLOR  0,7  :  PRINT  "     GOOD  JOB!     ";  :  COLOR  7,0 

1730  PRINT  :  PRINT 

1740  PRINT  TAB(28)  "Press  any  key  to  continue." 

1750  LOCATE  ,,0  :  AS  =  INPUTS(l) 

1760  CLS  :  LOCATE  5,1 

1770  PRINT  "The  fill-in-the-blank  questions  allow  you  to  enter  either  letters, 

numbers,  or  symbols.   You  must  supply  the  answer  to  the  question  that  is  asked." 

1780  PRINT 

1790  PRINT  "Answer  the  fill-in-the-blank  example  below." 

1800  PRINT  :  PRINT 

1810  LOCATE  ,,1 

1820  LINE  INPUT  "     Enter  your  first  name.       ANSWER  =  ",  NNANES 

1830  IF  NNAHES  =  ""  OR  VAL(NNAMES)  <>  0  THEN  1840  ELSE  1850 

1840  PRINT  :  COLOR  7,1  :  PRINT  "  Try  again  ";  :  COLOR  7,0  :  PRINT  :  GOTO  1820 
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Listing  of  Residential  Water  Conservation  Program  (continued) . 


"You  entered  your  name  as  £..   Is  this  spelled 


Yes- 
No 

OR  ANSS 
OR  ANSS 
Ok... 


Answer  =  ",  ANSS 
i  "y"  OR  ANSS  =  "Y"  THEN  1940 
■  "n"  OR  ANSS  =  "N"  THEN  1900  ELSE  1910 
Try  again."  :  PRINT  :  GOTO  1820 


1850  PRINT  :  PRINT  USING 
correctly?";  NNAI1ES 
1860  PRINT  "     til 
1870  INPUT  "     C2] 
1880  IF  VAL(ANSS)  =  1 
1890  IF  VAL(ANSS)  =  2 
1900  PRINT  :  PRINT 
1910  COLOR  7,1 

1920  PRINT  "  You  must  enter  either  1  or  2 Try  again.  "; 

1930  COLOR  7,0  :  PRINT  :  GOTO  1850 

1940  PRINT:PRINT  TAB(20)  "Press  any  key  and  we'll  get  started  with  the  program. 

1950  LOCATE  , ,0  :  AS  =  INPUTS(l)  :  LOCATE  ,,1 

1960  CLS  :  LOCATE  5,1 

1970  SEX  =  0 

1980  PRINT 

1990  PRINT 

2000  INPUT 

2010  PRINT 

2020  IF  VAL(ANSS)  =  1  OR  VAL(ANSS)  =  2  THEN  SEX  =  VAL(ANSS) 

2030  COLOR  7,1 

2040  PRINT  "  You  must  enter  either 

2050  COLOR  7,0  :  PRINT 

2060  GOTO  1980 

2070  ' 

2080 

2090 

2100 

2110  ' 

2120  PRINT 

2130  IF  COUNTER 


"Are  you  male  or  female?" 
tl]   Male" 
121   Female 


ANSS 


GOTO  2240 


1  or  2. 


Try  again. 


**»*»****..»•«»#»* 


*  »»»«»»»•»*••*  »  »* 


i,«»i<ti>t.>,>,>.>,i.,iiiitt«i>.«,...»t,..«*tt»*,i. 


UTILITY  RATE  SECTION   •  «  • 


•»»»»*•»**•*»»*« 


>«*»•»*  «•»*  »#»»»*  »»»»»»»« 


..,•»•».. 


,1  : 


1  THEN  CLS  ELSE  2240 
COLOR  7,0 


SETTING  PARAMETERS  TO  ZERO  =  = 


2140  LOCATE  5, 

2150  ' 

2160  ' 

2170  ' 

2180  SUN  =  0  :  HOTSUM  =  0  :  SUMDIFF  =  0  :  HOTDIFF  =  0  :  KANCOUNT  = 

2190  BS  =  0  :  DISH  =  0  :  CLOTHES  =  0  :  SOFTENER  =  0  :  CLOTHESCOUNT 

2200  DRINK  =  0  :  SHAVECOUNT  =  0  :  NOTWISE  =  0  :  FRC  =  0  :  TUBCOUNT 

2210  SHOWERCOUNT  =  0  :  TEETHCOUNT  =  0  :  HANDSCOUNT  =  0  :  DISHCOUNT 


2220  RINSECOUNT  = 

2230  ' 

2240  PRINT 

2250  PRINT 

2260  INPUT 

2270  PRINT 

2280  IF  VAL(KANS)  =  1 

2290  IF  VAL(KANS)  =  2 


WC  =  0  :  WCOST  =  0  :  HWC  =  0  :  WATER 


Do  you  live  in  Kansas?" 
tl]   Yes- 
No 


C2] 


Answer 


KANS 


THEN  2370 

THEN  2300  ELSE  2330 


OR  KANS  =  "y"  OR  KANS  =  "Y" 

OR  KANS  =  "n"  OR  KANS  =  "N" 
2300  PRINT  "     I  do  not  have  any  information  about  water  rates  for  any  place 
outside     Kansas,  but  I  will  use  averages  based  on  Kansas  water  rates." 
2310  PRINT 
2320  KANCOUNT  =  1  :  GOTO  2370 
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Listing  of  Residential  Water  Conservation  Program  (continued) . 


2330  COLOR  7,1 

2340  PRINT  "  You  must  enter  either  1  or  2 Try  again.  "; 

2350  COLOR  7,0  :  PRINT  :  PRINT  :  GOTO  2240 

2360  ' 

2370  PRINT  "What  is  the  population  of  your  community?" 

2380  PRINT  "     [1]   Greater  than  100,000  people" 

2390  PRINT  "      [23   Between  10,000  and  99,999" 

2400  PRINT  "     [33   Between  5,000  and  9,999" 

2410  PRINT  "     [43   Between  1,000  and  4,999" 

2420  PRINT  "     [53   999  people  or  less." 

2430  INPUT  "     [63   You  live  in  a  rural  area.  Answer  =  ",  ANSS 

2440  PRINT 

2450  IF  VAL(ANSS)  =  6  THEN  ANSS  =  "5" 

2460  IF  VAL(ANSS)  >=1  AND  VAL(ANSS)  <=5  THEN  POP  =  VAL(ANSS)  :  GOTO  2500 

2470  COLOR  7,1 

2480  PRINT  "  You  must  enter  either  1,  2,  3,  4,  5,  or  6....   Try  again.  "; 

2490  COLOR  7,0  :  GOTO  2310 

2500  IF  COUNTER  =  1  THEN  COUNTER  =  0  ELSE  2520 

2510  GOTO  3640 

2520  PRINT 

2530  '  +++++++++++++++++++♦++++++♦+++++♦+++++++ 

2540  '  =  =  =   WATER  UTILITY  RATE  SECTION   =  =  = 

2550  '  **************************************** 

2560  ' 

2570  PRINT  "Where  does  your  water  cone  from?" 

2580  PRINT  "     [13   Municipal  water  plant" 

2590  PRINT  "     [23   Rural  Water  District" 

2600  INPUT  "     [33   Private  well  Answer  =  ",  ANSS 

2610  PRINT 

2620  IF  VAL<ANSS)  =1  OR  VAL(ANSS)  =2  OR  VAL(ANSS)  =3  THEN  SOURCE  =  VAL(ANSS)  : 

GOTO  2670 

2630  COLOR  7,1 

2640  PRINT  "  You  must  enter  either  1,  2,  or  3 Try  again.  "; 

2650  COLOR  7,0  :  PRINT 

2660  GOTO  2570 

2670  IF  SOURCE  <>  3  THEN  2750 

2680  ' 

2690  PRINT  "How  deep  (in  feet)  is  your  well?   If  you  don't  know,  then  make  a 

rough  estimate. 

2700  INPUT  "     Answer  =  ".DEPTHS 

2710  PRINT 

2720  IF  VAL(DEPTHS)  <=  0  OR  DEPTHS  =  ""  THEN  COLOR  7,1  ELSE  DEPTH  =  VAL(DEPTHS) 

:  GOTO  6420 

2730  PRINT  "  You  must  give  me  an  estimate.   If  you  don't  know,  then  guess  50 

feet.  "; 

2740  COLOR  7,0  :  PRINT  :  GOTO  2690 

2750  IF  SOURCE  =  2  THEN  UNITS  =  1  :  UNITS  =  "1000  gallons"  :  GOTO  3500 

2760  PRINT  "Is  your  home  on  a  water  meter?" 

2770  PRINT  "     [13   Yes" 

2780  INPUT  "     [23   No  Answer  =  ",  ANSS 
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=  1  OR  ANSS  =  "y1 

'  OR  ANSS  = 

"Y"  THEN  METER  =  1 

:  GOTO 

2880 

=  2  OR  ANSS  =  "n' 

'  OR  ANSS  = 

"N"  THEN  METER  =  2 

:  GOTO 

2860 

ust  enter  either 

1  or  2 

Try  again.  "; 
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2790  PRINT 

2800  IF  VAL(ANSS) 

2810  IF  VAL(ANSS) 

2820  COLOR  7,1 

2830  PRINT  "  You  I 

2840  COLOR  7,0  :  PRINT 

2850  GOTO  2750 

2860  IF  METER  =  2  THEN  2990 

2870  ' 

2880  PRINT  "How  does  your  water  bill  read?  Most  bills  read  in  dollars  per  "; 

2890  PRINT  "one-thousand"  :  PRINT  "gallons." 

2900  PRINT  "     Cll   Dollars  per  one-thousand  gallons" 

2910  INPUT  "     [2]   Dollars  per  one-hundred  cubic  feet        Answer  =  ",  ANSS 

2920  PRINT 

2930  IF  VAL(ANSS)  =1  OR  VAL(ANSS)  =2  THEN  UNITS  =  VAL(ANSS)  :  GOTO  3470 

2940  COLOR  7,1 

2950  PRINT  "  You  must  enter  either  1  or  2....   Try  again.  ": 

2960  COLOR  7,0  :  PRINT 

2970  GOTO  2880 

2980  ' 

2990  PRINT  "What  is  your  flat  rate  water  fee  in  dollars  per  month?" 

3000  PRINT  "   Enter  the  amount  as  a  dollar  decimal." 

3010  INPUT  "   If  you  don't  know,  then  hit  the  RETURN  key.     Answer  =  S", FLATS 

3020  PRINT 

3030  IF  KANCOUNT  =  1  AND  FLATS  =  ""  THEN  3420  :  IF  VAL(FLATS)  >  0  AND  VAL(FLATS) 

<-  20  THEN  FLATFEE  =  VAL(FLATS)  ELSE  3060  :  GOTO  3420 

3040  IF  FLATS  =  ""  THEN  FRC  =  1  :  GOTO  3130 

3050  IF  VAL( FLATS)  >  0  AND  VAL( FLATS)  <=  20  THEN  3090 

3060  COLOR  7,1 

3070  PRINT  "  Please  enter  a  cost  between  SI  and  S20  per  month.  "; 

3080  COLOR  7,0  :  PRINT  :  PRINT  :  GOTO  2990 

3090  FC  =  VAL (FLATS)  :  FRC  =  1  :  GOTO  6420 

3100  ' 

3110  '         =  =  =   OPENING  THE  SEQUENTIAL  FILE  "FLATFEE.DAT"   =  =  = 

3120  ' 

3130  CLS 

3140  OPEN  "I",  #1,  "FLATFEE.DAT" 

3150  FOR  I  =  1  TO  11 

3160     INPUT  #1,  CITYS(I),  FC(I) 

3170  NEXT  I 

3180  CLOSE 

3190  PRINT  "Below  is  a  list  of  Kansas  communities  that  charge  a  flat  fee  for 

their  water. If  your  community  is  listed,  enter  the  line  number  that  corresponds 

to  it  and" 

3200  PRINT  "hit  the  RETURN  key.   If  your  community  is  not  listed,  then  hit 

RETURN  key  only." 

3210  PRINT 

3220  PRINT  "  Line  No.  Community" 


3230  PRINT 

3240  FOR  I  =  1  TO  11 
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&";  I,  CITYS(I) 


3250     LOCATE  (6  *  I),  21 

3260     PRINT  USING  "##. 

3270  PRINT 

3280  NEXT  I 

3290  LOCATE  20,35 

3300  INPUT  "ANSWER  =  ",  ANSS 

3310  IF  ANSS  =  '■"  THEN  FC  =  7.86  :  PRINT  :  GOTO  3420 

3320  IF  VAL(ANSS)  >=  1  AND  VAL(ANSS)  <=    11  THEN  3330  ELSE  3370 

3330  FC  =  FC(VAL(ANSS>)  :  FRC  =  1  :  PRINT 

3340  COLOR  7,4 

3350  PRINT  USING  "  The  flat  rate  water  fee  for  &  is  $##.#*.    "; 

FC(VAL(ANSS)>; 

3360  COLOR  7,0  : 

3370  CLS 

3380  LOCATE  12,1 


CITYS(VAL(ANSS)), 


PRINT  :  PRINT  :  LOCATE  24,1  :  GOTO  6420 


Press  the  RETURN  key  and  try 


COLOR  7,1 
3390  INPUT  "  You  must  have  hit  the  wrong  key. 
again.  ",  RETS 
3400  IF  RETS  =  ••"  THEN  COLOR  7,0  :  CLS  :  GOTO  3190 
3410  COLOR  7,0  :  GOTO  3370 
3420  FRC  =  1  :  COLOR  7,4 

3430  PRINT  "  Then  I'll  use  a  rough  estimate  for  the  flat  rate  equal  to  S7.86 
3440  PRINT  "per  nonth.  "| 

3450  COLOR  7,0  :  PRINT  :  PRINT  :  GOTO  6420 
3460  PRINT  :  GOTO  6310 

3470  IF  UNITS  =  1  THEN  UNITS  =  "one-thousand  gallons"  :  GOTO  3500 
3480  IF  UNITS  =  2  THEN  UNITS  =  "one-hundred  cubic  feet" 
3490  ' 

What  is  the  marginal  cost  per  ";UNITS;"  of  water  per  month  where 

you  live?" 

Enter  the  amount  as  a  dollar  decimal." 

If  you  don't  know,  then  press  the  RETURN  key.    Answer  =  S", 


3500  PRINT 

3510  PRINT 

3520  PRINT 

3530  INPUT 

WCOSTS 

3540  PRINT 

3550  IF  WCOSTS  =  "" 

3560  IF  WCOSTS  =  "" 

3570  IF  WCOSTS  =  "" 

3580  IF  VAL (WCOSTS) 

3590  COLOR  7,1 

3600  PRINT 

3610  COLOR 

3620  WCOST 

3630  PRINT 

3640  CLS 

3650  IF  SOURCE  =  2  THEN  4710 

3660  ON  POP  GOTO  3670,  3680, 


AND  KANCOUNT  =  1 
AND  KANCOUNT  =  1 
THEN  3630 
>  0   AND  VAL (WCOSTS) 


AND  SOURCE  =  2  THEN  6260 
THEN  5960 


<=  8  THEN  3620 


Please  enter  a  cost  between  SO. 50  and  S8.  "; 

0  :  PRINT  :  PRINT  :  GOTO  3500 

VAL  (WCOSTS)  :  LOCATE  24,1  :  PRINT  :  GOTO  6420 


3690,  3700,  3710 

"over  100,000"  :  GOTO  3760 

"between  10,000  &  99,999"  :  GOTO  3760 

"between  5000  &  9999"  :  GOTO  3760 

"between  1000  &  4999"  :  GOTO  3760 

"less  than  1000"  :  GOTO  3760 


3670 

FFNS 

= 

"CITY1" 

:  pops 

3680 

FFNS 

= 

"CITY2" 

:  pops 

3690 

FFNS 

= 

"CITY3" 

:  pops 

3700 

FFNS 

= 

"CITY4" 

:  pops 

3710 

FFNS 

= 

"city5" 

:  pops 

55 


Listing  of  Residential  Water  Conservation  Program  (continued) . 


3720  ' 

3730  '    =  =  =  OPENING  THE  SEQUENTIAL  FILE  FOR  THE  MUNICIPAL  WATER  =  =  = 

3740  '     =  =  =   PLANTS  BASED  ON  COMMUNITY  POPULATION  =  =  = 

3750  ' 

3760  OPEN  "I",  #1,  FFNS  *  ".DAT" 

3770  IF  POP  =  4  OR  POP  ■  5  THEN  4200 

3780  LOCATE  1.1 

3790  PRINT  USING  "     You  entered  that  your  community  had  6,  people,  thus";POPS 

3800  PRINT  "the  reason  for  the  list  below.   In  the  area  marked  ANSWER,  enter  the 

line  number  that  corresponds  to  your  community," 

3810  PRINT  "     If  your  community  is  not  listed,  and  your  population  size  is 

correct,    then  press  the  key  marked  RETURN.   If  you  think  you  answered  the 

question    dealing  with  your  population  incorrectly,  then  press  the  key  marked 

'H'  and  hit  RETURN." 

3820  IF  POP  =  2  THEN  3990 

3830  LOCATE  8,5 

3840  PRINT  "Line  No.  Community" 

3850  LOCATE  9,5 

3860  PRINT  " " 

3870  IF  POP  =  1  THEN  N  =  9  ELSE  N  =  36 

3880  FOR  I  =  1  TO  N 

3890     INPUT  #1,  ASU) 

3900  NEXT  I 

3910  J  =  0 

3920  FOR  I  =  1  TO  CN  -  2)  STEP  3 

3930     J  =  J  *  1  :  LOCATE  (9  ♦  J), 8 

3940     CITYSCI)  =  ASU) 

3950     PRINT  USING  "##. 

3960  NEXT  I 

3970  LOCATE  15,45  :  INPUT  "ANSWER  = 

3980  CLOSE  :  GOTO  5660 

3990  LOCATE  8,1 

4000  PRINT  "Line  No. 

4010  PRINT  " 

4020  FOR  I  =  1  TO  69 

4030     INPUT  #1,  ASCI) 

4040  NEXT  I 

4050  J  =  0 

4060  FOR  I  =  1  TO  36  STEP  3 

4070     J  =  J  ♦  1 

4080     CITYSCI)  =  ASCI) 

4090     PRINT  USING  "    ##. 

4100  NEXT  I 

4110  FOR  I  =  37  TO  67  STEP  3 

4120     J  =  J  ♦  1 

4130     LOCATE  (J  -  3), 40 

4140     CITYSCI)  =  ASCI) 

4150     PRINT  USING  "    ##.  &"; 

4160  NEXT  I 

4170  LOCATE  23,35  :  INPUT  "ANSWER  =  ",  ANSS 


&";J, CITYSCI) 


Community 


Line  No. 


Community" 


J,  CITYSCI) 


J,  CITYSCI) 
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In  the  area  by  the  word  ANSWER,  enter  the  first  letter"; 
4,0  :  PRINT  "  (IN  CAPS  ONLY)  ";  :  COLOR  7,0 
"of  your  community's  name.   "; 


"I  am  attempting  to  look  for  the  towns  that  begin  with  the 

Please  Wait ";  FLS 


209 


4180  CLOSE 

4190  GOTO  5660 

4200  CLS 

4210  PRINT  " 

4220  COLOR 

4230  PRINT 

4240  COLOR  4,0  :  PRINT  "DO  NOT  PUT  ANY  SPACES  IN  FRONT  OF  THIS  LETTER!";  :  COLOR 

7,0 

4250  PRINT 

4260  INPUT  "  ANSWER  =  ",  FLS 

4270  PRINT 

4280  PRINT  USING 

letter  &, 

4290  J  =  0 

4300  IF  POP  =  4  THEN  N  =  120  ELSE  N 

4310  FOR  I  =  1  TO  N 

4320     INPUT  #1,  AS,  B,  C 

4330     IF  LEFTS ( AS, 1)  <  FLS  THEN  4360 

4340     IF  LEFTS (AS, 1)  >  FLS  THEN  4370  ELSE  J  =  J  »  1 

4350     CITYS(J)  =  AS  :  MCUKJ)  =  B  :  NCU2(J)  =  C 

4360  NEXT  I 

4370  CLOSE 

4380  IF  J  =  0  THEN  5930 

4390  COLOR  7,0  :  CLS  :  LOCATE  1,1 

4400  PRINT  USING  "     You  entered  that  your  community  had  &  people,  thus";POPS 

4410  PRINT  "the  reason  for  the  list  below.   In  the  area  marked  ANSWER,  enter  the 

line  number  that  corresponds  to  your  community." 

4420  PRINT  "     If  your  community  is  not  listed,  and  your  population  size  is 

correct,    then  press  the  key  marked  RETURN.   If  you  think  you  answered  the 

question    dealing    with  your  population  incorrectly,  then  press  the  key 

marked  'H'   and  hit  RETURN." 

4430  IF  POP  =  5  AND  (FLS  =  "B"  OR  FLS  =  "C"  OR  FLS  =  "L"  OR  FLS  =  "M"  OR  FLS  = 

"W")  THEN  4540 

4440  LOCATE  8,5 

4450  PRINT  "Line  No.  Community" 

4460  LOCATE  9,5 

4470  PRINT  " -—  " 

4480  FOR  I  =  1  TO  J 

4490     LOCATE  (9  *  I),  8 

4500     PRINT  USING  "##. 

4510  NEXT  I 

4520  LOCATE  15,45  :  INPUT  "ANSWER  = 

4530  CLOSE  :  GOTO  5660 

4540  LOCATE  8,1 

4550  PRINT  "Line  No.  '        Community 

4560  PRINT  " ---  

4570  KX  =  J  /  2 
4580  FOR  I  =  1  TO  K* 
4590     PRINT  USING  "   ## . 
4600  NEXT  I 


S,";I,CITYS(I) 


ANSS 


Line  No. 


Community" 


&";I,  CITYS(I) 
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4610 

L  = 

0 

4620 

FOR 

I  =  <KX 

+ 

1 

4630 

L  =  L  * 

1 

4640 

LOCATE 

(9 

* 

4650 

PRINT  USING 

4660 

NEXT  I 

TO  J 


L>,40 


##. 


&";I,CITYS(I) 


Rural  Water  District 
Below  is  a  list  of 


4670  CLOSE 

4680  LOCATE  23,35  :  INPUT  "ANSWER  =  ".  ANSS 

4690  GOTO  5660 

4700  LOCATE  1,1 

4710  PRINT  "You  answered  that  your  water  is  supplied  by 

(RWD).   Somedistricts  are  named  after  the  city  they  serve. 

the  das-" 

4720  PRINT  "tricts  that  fit  this  category.   If  your  district  is  one  of  these, 

then  enter  the  line  number  that  corresponds  to  it  and  hit  the  RETURN  key.   If 

this  is  not  your  case  then  enter  the  first  letter"; 

4730  COLOR  4,0  :  PRINT  "  (IN  CAPS  ONLY)  ";  :  COLOR  7,0 

"of  your  district's  name  and" 

"press  the  RETURN  key.   "; 

4,0  :  PRINT  "DO  NOT  PUT  ANY  SPACES  BEFORE  THE  LETTER!"  :  COLOR  7,0 


4740  PRINT 
4750  PRINT 
4760  COLOR 
4770  ' 
4780  ' 
4790  ' 
4800  OPEN 
4810  FOR  I 


OPENING  THE  RWD  SEQUENTIAL  FILE 


Community" 


£.";  I,  CITYS(I) 


"I",  #1,  "RWD. DAT" 
=  1  TO  5 
4820     INPUT  #1,  CITYS(I),  RWDNWC(I) 
4830  NEXT  I 
4840  LOCATE  8,1 
4850  PRINT  "        Line  No. 

4860  PRINT  "        

4870  FOR  I  =  1  TO  5 

4880     PRINT  USING"  #. 

4890  NEXT  I 

4900  LOCATE  17,10 

4910  INPUT  "ANSWER  =  ",  ANSS 

4920  IF  VAL(ANSS)  >=  1  AND  VAL(ANSS)  <=  5  THEN  WCOST  =  RWDNWC<VAL(ANSS) )  ELSE 

4970 
4930  CLOSE 
4940  LOCATE  23,1 
4950  PRINT  USING 
CITYS(VAL(ANSS>>, 
4960  COLOR  7,0 
4970  IF  ANSS  = 
4980  FOR  I  =  1  TO  26 
4990     READ  ALPHSU) 
5000     IF  ANSS  =  ALPHS<I)  THEN  5070 
5010  NEXT  I 

5020  DATA  A,B,C,D,E,F,G,H,I, J,K,L,H,N,0,P,0,R,S,T,U, V, 
5030  IF  VALCANSS)  <  1  OR  VAL(ANSS)  >  5  THEN  LOCATE  23, 
5040  COLOR  7,1 


:  COLOR  7,4 

"  The  narginal  water  rate  for  the  &  is  S##.##. 

WCOST;  :  PRINT 
PRINT  :  GOTO  6420 
"  THEN  4900 


,W,X,Y,Z 

, 1  ELSE  5070 
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5050  PRINT  "  You  cannot  enter  a  number  less  than  1  or  larger  than  5....  Try 

again.  "; 

5060  COLOR  7,0  :  GOTO  4900 

5070  CLS  :  FLS  =  ANSS 

5080  PRINT 

5090  PRINT  USING  "I  an  attempting  to  look  for  the  RWDs  that  begin  with  the 

letter  & .  Please  Wait ";  FLS 

5100  FOR  I  =  1  TO  169 

5110     INPUT  #1,  AS,  BS,  C 

5120     IF  LEFTS (AS, 1)  <  FLS  THEN  5150 

5130     IF  LEFTS(AS,1)  >  FLS  THEN  5170  ELSE  J  =  J  ♦  1 

5140     COUNTYS(J)  =  AS  :  RWDNOS(J)  =  BS  :  RWDWWC(J)  =  C 

5150  NEXT  I 

5160  CLOSE 

5170  IF  J  =  0  THEN  6220 

5180  CLS 

5190  PRINT  USING  "Below  is  a  list  of  RWD's  that  begin  with  the  letter  &.   If 

your  district  is  listed,  then  enter  the  number  that  corresponds  to  it  and 

press  the  RETURN  key.";  FLS 

5200  PRINT  "If  your  district  is  not  listed,  then  press  the  RETURN  key  only." 

5210  PRINT 

5220  IF  FLS  =  "C"  OR  FLS  =  "L"  OR  FLS  =  "N"  THEN  5400 

5230  PRINT  "       Line  No.      County  RWD  No.  " 

5240  PRINT  " ---  ---" 

5250  FOR  I  =  1  TO  J 

5260     LOCATE  (6  *  I),  8 

5270     PRINT  USING  "  ##.         &";  I,  COUNTYS(I) 

5280     LOCATE  (6  *  I),  43  :  PRINT  USING  "&";  RWDNOS(I) 

5290  NEXT  I 

5300  LOCATE  23,35 

5310  INPUT  "ANSWER  =  ",  ANSS 

5320  IF  VAL(ANSS)  >=  1  AND  VAL(ANSS)  <=  J  THEN  WCOST  =  RWDMWC(VAL(ANSS) )  ELSE 

5360 
5330  LOCATE  24,1  :  COLOR  7,4 

5340  PRINT  USING  "  The  marginal  water  rate  for  &  county  RWD  No.  S,  is  S##.##  "; 
COUNTYS(VAL(ANSS>),  RWDNOS(VAL(ANSS) > ,  WCOST  :  PRINT  "  per  1000  gallons.  "; 
5350  COLOR  7,0  :  PRINT  :  PRINT  :  GOTO  6420 
5360  IF  ANSS  =  ""  THEN  6170 
5370  CLS  :  LOCATE  12,5  :  COLOR  7,1 

5380  INPUT  "  You  must  have  hit  the  wrong  key Press  the  RETURN  key  and  try 

again.  ",  RETS; 

5390  IF  RETS  =  ""  THEN  5190  ELSE  COLOR  7,0  :  GOTO  5370 

5400  PRINT 

5410  PRINT  "Line  No.   County  RWD  No.    I    Line  No.   County 

RWD  No." 

5420  PRINT  " I    -- 


5430  K*  =  J  /  2 

5440  FOR  I  =  1  TO  K* 

5450     PRINT  USING  "    ##.     &";  I,  COUNTYS(I) 
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5460 

LOCATE  (7  *  I), 

30 

5470 

PRINT  USING  "S." 

;  RWDNOS(I) 

5480 

NEXT  I 

5490 

L  =  0 

5500 

FOR  I  =  (KX  *  1)  TO 

J 

5510 

L  =  L  *  1 

5520 

LOCATE  (7  *  L>, 

38 

5530 

PRINT  USING  "1 

##. 

5540 

LOCATE  (7  *  L), 

73 

5550 

PRINT  USING  "S." 

;  RWDNOS(I) 

5560  NEXT  I 

5570  LOCATE  25,35 

5580  IF  VAL(ANSS) 

ELSE  5620 

5590  LOCATE  3,1  : 

5600  PRINT  USING 


INPUT  "ANSWER  =  ' 
=  1  AND  VAL(ANSS) 


I,  COUNTYS(I) 


,  ANSS 

<=  J  THEN  WCOST 


RWDMWC(VAL<ANSS>)  :  CLS 


COLOR  7,4 
The  marginal  water  rate  for  &  county  RWD  No. 
COUNTYSCVAL(ANSS)),  RWDNOS(VALCANSS) ) ,  WCOST  :  PRINT 
5610  COLOR  7,0  :  PRINT  :  PRINT  :  GOTO  6420 
5620  IF  ANSS  =  •-  THEN  6170 
5630  CLS  :  LOCATE  12,5  :  COLOR  7,1 
5640  INPUT  "  You  must  have  hit  the  wrong  key 
again.  ",  RETS 

5650  IF  RETS  =  ""  THEN  5190  ELSE  COLOR  7,0  :  GOTO  5630 
5660  ON  POP  GOTO  5670,  5680,  5690,  5700,  5700 
1  AND  VAL(ANSS)  < 
1  AND  VAL(ANSS) 
1  AND  VAL(ANSS) 
1  AND  VAL(ANSS) 
•  3 

VAL<AS<NUJI  -  1>>  :  GOTO  6310 
VAL(ASCNUM))  :  GOTO  6310 


&  is  S##.## 
per  1000  gallons.  "; 


Press  the  RETURN  key  and  try 


5670  IF  VAL(ANSS)  >- 
5680  IF  VAL(ANSS)  >= 
5690  IF  VAL(ANSS)  >= 
5700  IF  VAL(ANSS)  >= 
5710  NUN  =  VAL(ANSS) 


3  THEN  5710  ELSE  5770 
<=  23  THEN  5710  ELSE  5770 
12  THEN  5710  ELSE  5770 
J  THEN  5750  ELSE  5770 


<  = 

<  = 


THEN  WCOST 
THEN  WCOST 


5720  IF  UNITS 

5730  IF  UNITS 

5740  GOTO  5770 

5750  IF  UNITS  =  1  THEN  WCOST 

5760  IF  UNITS  =  2  THEN  WCOST 

5770  IF  ANSS  =  ""  THEN  5960 

5780  IF  ANSS  =  "H"  OR  ANSS  = 

5790  CLS 

5800  COLOR  7,1 

5810  LOCATE  12,5 

5820  INPUT  "  You  nust  hove  hit  the  wrong  key 

again.  ",RETS 


NCUKVAL(ANSS)) 
MCU2(VAL(ANSS>) 


"h"  THEN  5860 


GOTO  6310 
GOTO  6310 


Press  the  RETURN  key  and  try 


5830  IF  RETS  =  " 

5840  GOTO  5820 

5850  COLOR  7,0  : 

5860  COUNTER  =  1 

5870  COLOR  2,0  : 

5880  PRINT  " 

incorrectly, I  will 

5890  PRINT 

5900  INPUT  "     Press  the  RETURN  key  when  you  are  ready  to  go  back 


AND  POP  =  4   OR  POP  =  5  THEN  4390  ELSE  5850 

GOTO  3640 
:  CLS 

LOCATE  5,1 

Since  you  night  have  answered  the  population  question 
return  you  to  that  question  and  let  you  try  again." 


RETS 
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THEN  5920  ELSE  5900 
CL5  :  GOTO  2370 
LOCATE  24,1  :  PRINT 

I  have  no  community  listed  that  begins  with  the  letter  &, 

use  a  very  rough  estimate  according  to  the  size  of  your 


PRINT 


5990 

PRINT  " 

co 

6000 

PRINT 

6010 

' 

6020 

'  = 

=  =  : 

UJ 

6030 

• 

6040 

IF 

POP  = 

1 

6050 

IF 

POP  = 

2 

6060 

IF 

POP  = 

3 

6070 

IF 

POP  = 

4 

6080 

IF 

POP  = 

5 

6090 

IF 

POP  = 

1 

6100 

IF 

POP  = 

2 

6110 

IF 

POP  = 

3 

6120 

IF 

POP  = 

4 

6130 

IF 

POP  = 

5 

5910  IF  RETS  =  " 
5920  COLOR  7,0  : 
5930  COLOR  7,4  : 
5940  PRINT  USING 
therefore  I'll 
community.";  FLS 
5950  GOTO  6040 
5960  LOCATE  24,1 
5970  COLOR  7,4 

5980  PRINT  "Then  I'll  use  a  very  rough  estimate  according  to  the  size  of  your 
community.     "; 


=  =   MARGINAL  WATER  RATE  DEFAULT  VALUES  FOR  MUNICIPAL  WATER  PLANTS 

AND  UNITS 

AND  UNITS 

AND  UNITS 

AND  UNITS 

AND  UNITS 

AND  UNITS 

AND  UNITS 

AND  UNITS 

AND  UNITS 

AND  UNITS 
6140  PRINT  USING"The  estimate 
"; WCOST 

6150  PRINT  USING  "per  6.  per  month."; UNITS; 
6160  COLOR  7,0  :  PRINT  :  PRINT  :  GOTO  6420 
6170  CLS  :  LOCATE  3,1  :  COLOR  7,4 

6180  PRINT  "Then  I'll  use  a  very  rough  estimate  for  your  marginal  water  rate 
based  on    the  average  of  the  RWDs  in  the  state  of  Kansas.   This  cost  is  S2.41 
per  1000    gallons."; 
6190  WCOST  =  2.41 
6200  COLOR  7,0  :  PRINT 
6210  PRINT  :  GOTO  6420 
6220  CLS  :  LOCATE  3,1  :  COLOR  7,4 

6230  PRINT  USING  "I  have  no  RWD  listed  that  begin  with  the  letter  &.   Therefore 
I  will  use  a  very  rough  estimate  of  your  marginal  water  cost  based  on  the 
average  for  the   districts  in  Kansas.   This  cost  is  S2.41  per  1000  gallons.  "; 
FLS 

6240  WCOST  =2.41 

6250  COLOR  7,0  :  PRINT  :  GOTO  6420 
6260  COLOR  7,4 

6270  PRINT  "  Since  you  do  not  live  in  Kansas,  I  will  use  an  average  for  your 
monthly      marginal  water  cost  based  on  Kansas  RWDs.   This  cost  is  S2.41  per 
1000  gallons."; 
6280  WCOST  =2.41 

6290  COLOR  7,0  :  PRINT  :  PRINT  :  GOTO  6420 
6300  PRINT 


1 

THEN 

WCOST 

= 

1.22 

:  GOTO 

6140 

1 

THEN 

WCOST 

= 

1.31 

:  GOTO 

6140 

1 

THEN 

WCOST 

= 

1.42 

:  GOTO 

6140 

1 

THEN 

WCOST 

= 

1.26 

:  GOTO 

6140 

1 

THEN 

WCOST 

= 

1.7 

:  GOTO 

6140 

2 

THEN 

WCOST 

* 

.91 

:  GOTO 

6140 

2 

THEN 

WCOST 

= 

.98 

:  GOTO 

6140 

2 

THEN 

WCOST 

= 

1.06  : 

:  GOTO 

6140 

2 

THEN 

WCOST 

= 

.94 

:  GOTO 

6140 

2 

THEN 

WCOST 

= 

1.27  : 

:  GOTO 

6140 

I  will  use  for  your  marginal  water  cost  is  S#.## 
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6310  LOCATE  24,1 

6320  COLOR  7,4  :  IF  POP  =  4  OR  POP  =  5  THEN  6350 

6330  PRINT  USING  "  The  monthly  marginal  water  rate  for  &  is  S##.## 

CITYS<NUH-2),  WCOST;  :  PRINT  :  PRINT  USING  "  &.  "j  UNITS; 


per 


PRINT  :  PRINT  :  GOTO  6420 

"  The  monthly  marginal  water  rate  for  &  is  S##.##  per 

WCOST;  :  PRINT  :  PRINT  USING  "  &.  "|  UNITS; 
PRINT  :  PRINT 

+  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  ■«■  +  +  +  +  ♦  +  +  +  +  ♦  +  +  +  ♦*  +  +  ♦  +  +  * 
=  =  =   ENERGY  UTILITY  RATE  SECTION   =  =  = 

+  +  +  +  +  +  +  +  +  +  4-  +  +  *  +  +  +  +  *-  +  +  +  +  +  +  +  +  *  +  +  +  +  +  +  +  +  +  +  +  +  + 


6340  COLOR  7,0  : 

6350  PRINT  USING 

CITYS(VAL<ANSS>) 

6360  COLOR  7,0  : 

6370  ' 

6380  ' 

6390  ' 

6400  • 

6410  ' 

6420  PRINT 

6430  PRINT 

6440  PRINT 

6450  INPUT 

6460  PRINT 

6470  IF  VAL(ANSS)  =  1  OR  VAL(ANSS)  =  2  OR  VAL(ANSS) 

GOTO  6520 

6480  COLOR  7,1 

6490  PRINT  "  You  must  enter  either  1,2  or  3 Try  again. 


"How  is  your  hot  water  heated?" 
[13   Electricity" 
Natural  gas" 
LP  gas 


[23 
[31 


Answer  = 


ANSS 


3  THEN  HEAT  =  VAL(ANSS) 


6500  COLOR  7,0 
6510  GOTO  6420 
6520  IF  HEAT  = 
6530  IF  HEAT  = 
6540  IF  SOURCE 
6550  IF  HEAT  = 
6560  IF  SOURCE 


:  PRINT 


1  THEN  BTU  =  3413  :  GOTO  6580 

2  THEN  BTU  =  1000000!  ELSE  6550 
=  3  THEN  6570  ELSE  6750 

3  THEN  BTU  =  95000! 
=  3  THEN  6570  ELSE  6900 

6570  PRINT  "For  the  purpose  of  pumping  your  water 

per  kilowatt-  hour,  <kwh>?"  :  GOTO  6590 

6580  PRINT  "What  is  your  electric  cost  per  kilowatt-hour 

6590  PRINT  "   Enter  the  amount  as  a  dollar  decimal  Ce.g 


what  is  your  electric  cost 


(kwh)?" 
,  SO. 08)  ." 


6600  INPUT  "   If  you  don't  know,  then  press  the  RETURN  key.     Answer  = 

S",KWATS 

6610  PRINT 

6620  IF  KWATS  =  ""  THEN  KWAT  =  .08  ELSE  6660 

6630  COLOR  7,4 

6640  PRINT  "  Then  I'll  use  an  estimated  cost  of  SO. 08  per  kwh.  "; 

6650  COLOR  7,0  :  PRINT  :  GOTO  6710 

6660  IF  VAL(KWATS)  <  .049  OR  VAL(KWATS)  >  .115  THEN  6670  ELSE  6700 

6670  COLOR  7,1 

6680  IF  VAL(KWATS)  <  .049  THEN  PRINT  "  Your  electricity  cost  is  too  low.   The 

price  for  electricity  ranges  between   SO. 05  and  SO. 11  per  kwh.   Try  again... 

and  enter  a  cost  that  is  in  this  range.  ";:  COLOR  7,0  :  PRINT:PRINT  :  GOTO  6580 

6690  IF  VAL(KWATS)  >  .115  THEN  PRINT  "  Your  electricity  cost  is  too  high.   The 

price  for  electricity  ranges  between   SO. 05  and  SO. 11  per  kwh.   Try  again... 

and  enter  a  cost  that  is  in  this  range.";:  COLOR  7,0  :  PRINT  :  PRINT  :  GOTO  6580 

6700  KWAT  =  VAL(KWATS) 

6710  ENERGYCOST  =  KWAT  :  PRINT 
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6720  IF  SOURCE  =  3  AND  HEAT  =  2  THEN  6750 

6730  IF  SOURCE  =  3  AND  HEAT  =  3  THEN  6900  ELSE  7040 

6740  ' 

6750  PRINT  "What  is  your  natural  gas  cost  per  1000  cubic  feet  (fiCF)?" 

6760  PRINT  "   Enter  the  amount  as  a  dollar  decimal  (e.g.,  $5.50)." 

6770  INPUT  "   If  you  don't  know,  then  press  the  RETURN  key.      Answer  = 

S",GASS 

6780  PRINT 

6790  IF  GASS  =  ""  THEN  GAS  =5.5  ELSE  6830 

6800  COLOR  7,4 

6810  PRINT  "  Then  I'll  use  an  estimated  cost  of  S5.50  per  MCF.  "; 

6820  COLOR  7,0  :  PRINT  :  GOTO  6880 

6830  IF  VAL(GASS)  <  1.99  OR  VAL(GASS)  >  9.01  THEN  6840  ELSE  6870 

6840  COLOR  7,1 

6850  IF  VAL(GASS)  <  1.99  THEN  PRINT  "  Your  gas  cost  is  too  low.   The  cost  of  gas 

ranges  between  S2.00  and  S9.00.      Try  again...  and  enter  a  cost  in  this 

range.";:  COLOR  7,0  :  PRINT  :  PRINT  :  GOTO  6750 

6860  IF  VAL(GASS)  >  9.01  THEN  PRINT  "  Your  gas  cost  is  too  high.   The  cost  of 

gas  ranges  between  S2.00  and  S9.00.   Try  again...  and  enter  a  cost  in  this 

range."  ;:  COLOR  7,0  :  PRINT  :  PRINT  :  GOTO  6750 

6870  GAS  =  VAL(GASS) 

6880  ENERGYCOST  ■  GAS  :  GOTO  7040 

6890  ' 

6900  PRINT  "What  is  your  cost  per  gallon  for  LP  gas?" 

6910  PRINT  "   Enter  the  amount  as  a  dollar  decimal  (e.g.,  S0.70)." 

6920  INPUT  "   If  you  don't  know,  then  press  the  RETURN  key.     Answer  =  S",LPS 

6930  PRINT 

6940  IF  LPS  =  ""  THEN  LP  =  .7  ELSE  6980 

6950  COLOR  7,4 

6960  PRINT  "  Then  I'll  use  an  estimated  cost  of  SO. 70  per  gallon.  "; 

6970  COLOR  7,0  :  PRINT  :  GOTO  7030 

6980  IF  VAL(LPS)  <  .49  OR  VAL(LPS)  >  1.26  THEN  6990  ELSE  7020 

6990  COLOR  7,1 

7000  IF  VAL(LPS)  <  .49  THEN  PRINT  "  Your  LP  gas  cost  is  too  low.   The  cost  range 

for  LP  gas  is  between  SO. 50  and    SI. 25.   Try  again...  and  enter  a  cost  in  this 

range.  ";:  COLOR  7,0  :  PRINT  :  PRINT  :  GOTO  6900 

7010  IF  VAL(LPS)  >  1.26  THEN  PRINT  "  Your  LP  gas  cost  is  too  high.   The  cost 

range  for  LP  gas  is  between  SO. 50   and  SI. 25.   Try  again...  and  enter  a  cost  in 

this  range.  "; :  COLOR  7,0  :  PRINT  :  PRINT  :  GOTO  6900 

7020  LP  =  VAL(LPS) 

7030  ENERGYCOST  =  LP 

7040  PRINT 

7050  INPUT  "     Press  the  RETURN  key  to  continue.",  RETS 

7060  IF  RETS  =  ""  THEN  7070  ELSE  7050 

7070  CLS  :  LOCATE  5,1 

7080  SUN  =  0 

7090  IF  SOURCE  <>  3  THEN  7380 

7100  ' 

7110  '**«***#»*««*«»*«**«»i»ii«««««»*»«»*it  »»»»»»»*»*«»«««««*«  «*«»«« »»•*•»«#«•*«•»« 

7120  '  ...   WATER  HABITS  SECTION   «  «  . 
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7130  '•*••»**••»•«*•»**»•»•**»»»*»••»»»»»•*»»»»»«»•*«••»»••*»•#»»#•»•»*»»»#»»»•« 

7140  ' 

7150  PRINT  "Do  you  have  a  water  softener?" 

7160  PRINT  "     [1]   Yes" 

7170  INPUT  "      C2]   No         Answer  =  ",ANSS 

7180  PRINT 

7190  IF  VAL(ANSS)  =  1  OR  ANSS  =  "y"  OR  ANSS  =  "Y"  THEN  SOFTENER  =  1  :  GOTO  7240 

7200  IF  VAL(ANSS)  =  2  OR  ANSS  =  "n"  OR  ANSS  =  "N"  THEN  SOFTENER  =  2  :  GOTO  7240 

7210  COLOR  7,1 

7220  PRINT  "  You  must  enter  either  1  or  2 Try  again.  "; 

7230  COLOR  7,0  :  PRINT   :  GOTO  7150 

7240  IF  SOFTENER  =  2  THEN  7380 

7250  ' 

7280  PRINT  "How  many  days  between  regeneration  is  your  water  softener  set  for?" 

7270  INPUT  "   Enter  your  answer  here.       Answer  =  ",  ANSS 

7280  PRINT 

7290  IF  VAL(ANSS)  <=  0  OR  VAL(ANSS)  >  10  THEN  7300  ELSE  REGEN  =  VAL(ANSS)  :  GOTO 

7330 
7300  COLOR  7,1 

7310  PRINT  "  Please  enter  an  number  between  1  and  10  days.  "; 
7320  COLOR  7,0  :  PRINT  :  GOTO  7260 
7330  REGENDAY  =  30  /  REGEN 
7340  SUM  =  SUN  *  REGENDAY 
7350  SOFTENERCOLD  =  REGENDAY  •  365 
7360  SALT  =  6  /  REGEN  »  365  «  5  /  100 
7370  ' 

7380  PRINT  "Do  you  usually  take  a  bath  or  shower?" 
7390  PRINT  "     CI]   Bath" 

7400  INPUT  "     [2]   Shower  Answer  =  ",  ANSS 

7410  PRINT 

7420  IF  VAL(ANSS)  =  1  OR  VAL(ANSS)  =  2  THEN  BS  ■  VAL(ANSS)  :  GOTO  7470 
7430  COLOR  7,1 

7440  PRINT  "  You  must  enter  either  1  or  2 Try  again.  "; 

7450  COLOR  7,0  :  PRINT 

7460  GOTO  7380 

7470  IF  BS  =  2  THEN  7930 

7480  ' 

7490  PRINT  "How  full  do  you  fill  the  bath  tub?" 

7500  PRINT  "     C13   One-quarter  full" 

7510  PRINT  "     [2]   One-half  full" 

7520  INPUT  "     C3]   Over  one-half  full      Answer  =  ",  ANSS 

7530  PRINT 

7540  IF  VAL(ANSS)  =  1  OR  VAL(ANSS)  =  2  OR  VAL(ANSS)  =  3  THEN  TUB  ■  VAL(ANSS)  : 

GOTO  7590 

7550  COLOR  7,1 

7560  PRINT  "  You  must  enter  either  1,  2,  or  3 Try  again.  "; 

7570  COLOR  7,0  :  PRINT 

7580  GOTO  7490 

7590  IF  TUB  =  1  THEN  SUM  =  SUM  *  20  :  HOTSUM  =  HOTSUM  ♦  20  »  .67  :  GOTO  7610 

7600  GOTO  7630 
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7610  TUBCOLD  =  20  •  365  :  TUBHOT  =  20 
7620  TUBENERGY  =  HOTCOST  :  GOTO  8240 
7630  IF  TUB  =  2  THEN  SUM  =  SUM  ♦  35  : 
7640  GOTO  7670 

7650  TUBCOLD  =  35  «  365  :  TUBHOT  =  35 
HOTCOST  :  GOTO  7700 
50  :  HOTSUM  =  HOTSUM 
TUBHOT  =  50 
:  GOTO  7700 
1 

.67)  - 


.67  •  365  :  HOT  =  TUBHOT 

:  GOSUB  12600 

IOTSUM  =  HOTSUM  *  35  «  .67 

:  GOTO  7650 

-  .67  «  365  :  HOT  =  TUBHOT 

:  GOSUB  12600 

50  »  .67  :  '  TUB  =  3 

.67  »  365  :  HOT  =  TUBHOT 

I  GOSUB  12600 

13  ELSE  7730 

7770  IF  TUB  = 
7780  TUB1S  = 
tub,  you  may 
gallons  hot." 


If  you  have  a  conventional 

-  11  gallons  cold  and  24 

If  you  have  a  conventional 

-  17  gallons  cold  and  33 


7660  TUBENERGY 

7670  SUM  =  SUM 

7680  TUBCOLD  =  50  •  365  : 

7690  TUBENERGY  =  HOTCOST 

7700  TUBCOUNT 

7710  IF  TUB  =  2  THEN  HD  =  (35 

7720  CD  =  35  -  20  :  GOTO  7740 

7730  HD  =  (50  •  .67)  -  13  :  CD  =  50  -  20 

7740  GOSUB  12500 

7750  TUBHDC  =  HWCDIFF 

7760  TUBCDC  =  CWCDIFF 

2  THEN  7780  ELSE  7790 
"You  fill  your  bath  tub  one-half  full. 

be  using  35  gallons  of  water  per  bath 

:  GOTO  7800 
7790  TUB1S  =  "You  fill  your  bath  tub  over  half  full 
tub,  you  may  be  using  50  gallons  of  water  per  bath 
gallons  hot." 
7800  IF  SOURCE  =  3  THEN  7840 
7810  IF  FRC  =  1  THEN  7860 

7820  TUB2S="If  you  would  fill  your  tub  one-quarter  full  you  would  only  use  20 
gallons  of  water  per  bath.  This  could  save  you  $###  per  year  on  your  water 
cost  and    SHIHt   per  year  on  the  energy  required  to  heat  your  water  (assuming 
one  bath  a  day) ." 
7830  GOTO  7870 

7840  TUB2S  =  "If  you  would  fill  your  tub  to  one-quarter  full  you  would  only  use 
20  gallons  of  water.   This  could  save  you  $###  per  year  on  the  pumping  cost  of 
water  and  S###per  year  on  the  energy  required  to  heat  your  water  (assuming  one 
bath  a  day) ." 
7850  GOTO  7870 

7860  TUB2S  ■  "If  you  would  fill  your  tub  to  one-quarter  full  you  would  only  use 
20  gallons  of  water.   This  could  save  you  S###  per  year  on  your  water  heating 
requirments." 

7870  IF  TUB  =  2  THEN  5UMDIFF  =  SUMDIFF  * 
7880  HOTDIFF  =  HOTDIFF  *  (35  «  .67)  -  13 
7890  IF  TUB  =  3  THEN  SUMDIFF  =  SUMDIFF  ♦ 
7900  HOTDIFF  =  HOTDIFF  *  (50  »  .67)  -  13 
7910  GOTO  8240 
7920  ' 

7930  PRINT  "How  many  minutes  do  you  spend  in  the  shower?" 
7940  INPUT  "   Enter  your  answer  here.        Answer  =  ",  ANSS 
7950  PRINT 

7960  IF  VAL(ANSS)  >  0  AND  VAL(ANSS)  <=  45  THEN  SHOWER  =  VAL(ANSS) 
7970  COLOR  7,1 
7980  PRINT  "  Please  enter  a  time  between  1  and  45  minutes.  "; 


15  ELSE  7890 
:  GOTO  8240 
30  ELSE  8240 


GOTO  8000 
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8060 

SH0WERC0UNT 

=  1 

8070 

CD  -  SHOWER 

»  4  -  20 

8080 

HD  ■  SHOWER 

•  4  «  .67 

8090 

GOSUB  12500 

8100 

SHOWERHDC  = 

HWCDIFF 

8110 

SHOWERCDC  = 

CWCDIFF 
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7990  COLOR  7,0  :  PRINT  :  PRINT  :  GOTO  7930 

8000  SUM  =  SUM  <■  SHOWER  «  4 

8010  HOTSUM  =  HOTSUM  *  SHOWER  »  4  »  .67 

8020  SHOWERCOLD  =  SHOWER  •  4  »  365  :  SHOWERHOT  =  SHOWER 

8030  HOT  =  SHOWERHOT  :  GOSUB  12600 

8040  SHOWERENERGY  =  HOTCOST 

8050  IF  SHOWER  <=   5  THEN  8240 


13 


8120  SH0WER1S  =  "You  spend  ##  minutes  in  the  shower.  This  means  you  use 

approximately  ###gallonsof  water  per  shower  -  ###  gallons  cold  and  ###  gallons 

hot  water.   If   you  would" 

8130  3H0WER2S  =  "reduce  your  time  down  to  5  minutes,  you  would  use  about  20 

gallons  of  water  per  shower  -  7  gallons  cold  and  13  gallons  hot.   On  an  annual 

basis,  this  could" 

8140  IF  SOURCE  =  3  THEN  8180 

8150  IF  FRC  =  1  THEN  8200 

8160  SH0WER3S  ■  "save  you  approximately  S###  per  year  in  water  cost  and  S###  per 

year  in  the      energy  required  to  heat  your  water  (assuming  you  take  one 

shower  each  day)." 

8170  GOTO  8210 

8180  SH0WER3S  =  "save  you  approximately  S#  per  year  in  pumping  cost  of  your 

water  and  S###   per   year  on  energy  required  to  heat  your  water  (assuming  one 

shower  each  day)." 

8190  GOTO  8210 

8200  SH0WER3S  =  "save  you  S###  per  year  on  your  water  heating  requirments." 

8210  SUMDIFF  =  SUMDIFF  ♦  SHOWER  *  4  -  20 

8220  HOTDIFF  =  HOTDIFF  *  SHOWER  »  4  «  .67-13 

8230  ' 

8240  PRINT  "Estimate  how  many  times  a  day  you  flush  your  home  toilet." 

8250  INPUT  "   Enter  your  answer  here.        Answer  =  ",  ANSS 

8260  PRINT 

8270  IF  VAL(ANSS)  >  0  AND  VAL(ANSS)  <=  10  THEN  FLUSH  =  VAL(ANSS)  :  GOTO  8310 

8280  COLOR  7,1 

8290  PRINT  "  Please  enter  a  number  between  1  and  10.  "; 

8300  COLOR  7,0  :  PRINT  :  PRINT  :  GOTO  8240 

8310  SUM  =  SUM  *  FLUSH  »  5 

8320  FLUSHCOLD  =  FLUSH  «  5  »  365 

8330  IF  SEX  =  2  THEN  8680 

8340  ' 

8350  PRINT  "Do  you  let  the  water  run  while  you  shave?" 

8360  PRINT  "      [11   Yes" 

8370  PRINT  "      [21   No" 

8380  INPUT  "      [31   Don't  shave  with  water  Answer  =  ",ANSS 

8390  PRINT 

8400  IF  VAL(ANSS)  =  1  OR  ANSS  =  "y"  OR  ANSS  =  "Y"  THEN  SHAVE  =  1  :  GOTO  8470 
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8410  IF  VAL(ANSS)  =  2  OR  ANSS  =  "n"  OR  ANSS  =  "N"  THEN  SHAVE  -   2  :  GOTO  8470 

8420  IF  VAL(ANSS)  =  3  THEN  SHAVE  =  3  :  GOTO  8470 

8430  COLOR  7,1 

8440  PRINT  "  You  Must  enter  either  1  or  2....   Try  again.  "; 

8450  COLOR  7,0  :  PRINT 

8460  GOTO  8350 

8470  IF  SHAVE  =  3  THEN  8680 

8480  IF  SHAVE  =  1  THEN  SUM  =  SUM  ♦  3  :  HOTSUM  =  HOTSUM  •  3  :  GOTO  8500 

8490  GOTO  8520 

8500  SHAVECOLD  =  3  »  365  :  SHAVEHOT  =  3  «  365  :  HOT  =  SHAVEHOT  :  GOSUB  12600 

8510  SHAVEENERGY  =  HOTCOST  :  GOTO  8570 

8520  IF  SHAVE  =  2  THEN  SUM  =  SUM  *  1  :  HOTSUM  =  HOTSUM  •  1  :  GOTO  8540 

8530  GOTO  8680 

8540  SHAVECOLD  =  1  »  365  :  SHAVEHOT  =  1  •  365  :  HOT  =  SHAVEHOT  :  GOSUB  12600 

8550  SHAVEENERGY  =  HOTCOST 

8560  IF  SHAVE  =  2  THEN  8680 

8570  SHAVECOUNT  =  1 

8580  HD  =  2  :  CD  =  2  :  GOSUB  12500 

8590  SHAVEHDC  =  HWCDIFF 

8600  SHAVECDC  =  CWCDIFF 

8610  SHAVE1S  =  "Don't  run  the  water  while  you  shave.  Put  a  stopper  in  your  sink 

basin  and  fill  the  basin  one-quarter  full.   This  could  save  you  2  gallons  of 

hot  water  per   day." 

8620  IF  FRC  =  1  OR  SOURCE  =  3  THEN  8650 

8630  SHAVE2S  =  "On  an  annual  basis,  you  could  save  S#  per  year  in  water  cost  and 

S##  per  year    for  the  energy  required  to  heat  the  water." 

8640  GOTO  8660 

8650  SHAVE2S  ■  "On  an  annual  basis,  you  could  save  S##  on  the  energy  required  to 

heat  the  water." 

8660  SUMDIFF  =  SUMDIFF  *  2  :  HOTDIFF  =  HOTDIFF  *  2 

8670  ' 

8680  PRINT  "Do  you  let  the  water  run  while  you  brush  your  teeth?" 

8690  PRINT  "     [11   Yes" 

8700  INPUT  "     [21   No  Answer  =  ",ANSS 

8710  PRINT 

8720  IF  VAL(ANSS)  =  1  OR  ANSS  =  "y"  OR  ANSS  =  "Y"  THEN  TEETH  =  1  :  GOTO  8780 

8730  IF  VAL(ANSS)  =  2  OR  ANSS  =  "n"  OR  ANSS  =  "N"  THEN  TEETH  =  2  :  GOTO  8780 

8740  COLOR  7,1 

8750  PRINT  "  You  nust  enter  either  1  or  2....   Try  again.  "; 

8760  COLOR  7,0  :  PRINT 

8770  GOTO  8680 

8780  IF  TEETH  =  1  THEN  SUM  =  SUM  *  2  :  GOTO  8800 

8790  GOTO  8810 

8800  TEETHCOLD  =  2  »  365  :  GOTO  8830 

8810  IF  TEETH  =  2  THEN  SUM  =  SUM  *  .5 

8820  TEETHCOLD  =  .5  »  365  :  GOTO  8920 

8830  TEETHCOUNT  =  1 

8840  HD  =  0 

8850  CD  =  1.5  :  GOSUB  12500 

8860  TEETHCDC  =  CWCDIFF 
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8870  TEETH1S  =  "Don't  let  the  water  run  while  you  brush  your  teeth.   By  using  a 

cup  to  rinse    your  mouth,  you  could  save  1.5  to  2  gallons  of  water  per  brush." 

8880  IF  SOURCE  =  3  OR  FRC  =  1  THEN  8900 

8890  TEETH2S  =  "This  could  save  you  S#  per  year  on  water  cost  assuming  all  the 

water  is  cold." 

8900  SUMDIFF  =  SUMDIFF  *  1.5 

8910  ' 

8920  PRINT  "Do  you  let  the  water  run  while  you  wash  your  hands?" 

8930  PRINT  "      [1]   Yes" 


1  OR  ANSS  =  "y- 

OR  ANSS  = 

"Y"  THEN  HANDS  =  1 

GOTO  9020 

2  OR  ANSS  =  "n" 

OR  ANSS  = 

"N"  THEN  HANDS  =  2 

GOTO  9020 

t  enter  either 

1  or  2 

Try  again.  "; 

8940  INPUT  "      £21   No 

8950  PRINT 

8960  IF  VAL(ANSS) 

8970  IF  VAL(ANSS) 

8980  COLOR  7,1 

8990  PRINT  "  You 

9000  COLOR  7,0  :  PRINT 

9010  GOTO  8920 

9020  IF  HANDS  =  1  THEN  SUM  =  SUM  *  (2  »  2)  ELSE  9070 

9030  HOTSUM  =  HOTSUM  *  (2  »  2  «  .33) 

9040  HANDSCOLD  =  (2  »  2)  »  365  :  HANDSHOT  =  (2  »  2  « 

9050  HOT  =  HANDSHOT  :  GOSUB  12600 

9060  HANDSENERGY  =  HOTCOST  :  GOTO  9110 

9070  SUM  =  SUM  *  (1  »  2)  :  HOTSUM  =  HOTSUM  *  (1  •  2 


Answer  =  ",ANSS 


.33) 


365 


(1 


2  • 


.33) 
.33)  « 


365 


9080  HANDSCOLD  =  (1  •  2)  »  365  :  HANDSHOT 

9090  HOT  =  HANDSHOT  :  GOSUB  12600 

9100  HANDSENERGY  =  HOTCOST  :  GOTO  9230 

9110  HANDSCOUNT  =  1 

9120  HD  =  (2  «  2  «  .33)  -  (1  «  2  •  .33) 

9130  CD  =  (2  «  2>  -  (1  »  2)  :  GOSUB  12500 

9140  HANDSHDC  =  HWCDIFF 

9150  HANDSCDC  =  CWCDIFF 

9160  HANDS IS  =  "Don't  run  the  water  while  you  wash  your  hands 

your  sink  and   fill  it  one-quarter  full 

washing." 

OR  SOURCE  =  3  THEN  9200 
"Annually  you  could  save  S#  per  year  on  water  cost,  and  S##  per 

energy  required  to  heat  the  water  (assuming  you  wash  your  hands 


Put  a  stopper  in 
This  could  save  about  2  gallons  of 


water  per 

9170  IF  FRC  =  1 

9180  HANDS2S  = 

year  on  the 

twice  a  day.)" 

9190  GOTO  9210 

9200  HANDS2S  = 

heat  your  water 

9210  SUMDIFF  =  SUMDIFF 

9220  ' 

9230  PRINT 

9240  PRINT 

9250  INPUT 

9260  PRINT 

9270  IF  VA: 

9280  IF  VA1 

9290  COLOR  7,1 


"Annually  you  could  save  S##  per  year  on  the  energy  required  to 


HOTDIFF  =  HOTDIFF 


.66 


Does  your 

home  have  a  dishwasher? 

[11 

Yes" 

C21 

No 

Answer  ■ 

",  ANSS 

ANSS)  =  1 

OR  ANSS  =  "y"  OR  ANSS  = 

"Y"  THEN 

DISH  =  1 

GOTO  9330 

ANSS)  =  2 

OR  ANSS  =  "n"  OR  ANSS  = 

"N"  THEN 

DISH  =  2 

GOTO  9330 
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9300  PRINT  "  You  must  enter  either  1  or  2 Try  again.  "; 

9310  COLOR  7,0  :  PRINT 

9320  GOTO  9230 

9330  IF  DISH  =  2  THEN  9710 

9340  ' 

9350  PRINT  "How  many  tines  a  day  do  you  use  the  dishwasher?" 

9360  INPUT  "   Enter  your  answer  here.  Answer  =  ",  ANSS 

9370  PRINT 

9380  IF  VAL(ANSS)  >=  1  AND  VAL(ANSS)  <=  3  THEN  DTIN  =  VAL(ANSS)  :  GOTO  9420 

9390  COLOR  7,1 

9400  PRINT  "  Please  enter  a  number  between  1  and  3.  "; 

9410  COLOR  7,0  :  PRINT  :  PRINT  :  GOTO  9350 

9420  SUN  =  SUN  *  DTIH  »  15 

9430  HOTSUM  =  HOTSUN  *  DTIN  «  15 

9440  DISHCOLD  =  DTIN  »  15  •  365  :  DISHHOT  =  DTIN  «  15  »  365 

9450  HOT  =  DISHHOT  :  GOSUB  12600 

9460  DISHENERGY  =  HOTCOST 

9470  ' 

9480  PRINT  "Do  you  wash  a  full  load  of  dishes?" 

9490  PRINT  "     [1]   Almost  always" 

9500  PRINT  "     [23   Sometimes" 

9510  INPUT  "     [31   Not  usually  Answer  =  ",  ANS$ 

9520  PRINT 

9530  IF  VAL(ANSS)  =  1  OR  VAL(ANSS)  =  2  OR  VAL(ANSS)  =  3  THEN  FULLDISH  = 

VAL(ANSS)  ELSE  9660 

9540  IF  FULLDISH  =  1  THEN  10160  ELSE  DISHCOUNT  =  1 

9550  FULLDISH1S  =  "When  using  your  dishwasher,  always  wash  a  full  load  of  dishes. 

A  conventional     dishwasher  uses  15  gallons  of  water  (approximately  all  hot) 

per  load.   If  you" 

9560  HD  =  15  :  CD  =  15  :  GOSUB  12500 

9570  DISHHDC  =  HWCDIFF  :  DISHCDC  =  CWCDIFF 

9580  IF  SOURCE  =  3  THEN  9620 

9590  IF  FRC  =  1  THEN  9640 

9600  FULLDISH2«  =  "wash  a  load  of  dishes  every  day  for  a  year,  the  water  alone 

would  cost  S##  per  year  and  the  energy  required  to  heat  the  water  would  cost 

S##  per  year." 

9610  GOTO  10160 

9620  FULLDISH2S  ■  "wash  a  load  of  dishes  every  day  for  a  year,  the  cost  to  pump 

the  water  would  be  S#  per  year,  and  the  energy  required  to  heat  the  water  would 

cost  S##  per  year." 

9630  GOTO  10160 

9640  FULLDISH2S  =  "wash  a  load  of  dishes  every  day  for  a  year,  the  cost  of  the 

energy  required  to  heat  the  water  would  be  about  S##. 

9650  GOTO  10160 

9660  COLOR  7,1 

9670  PRINT  "  You  must  enter  either  1,2,  or  3 Try  again.  "; 

9680  COLOR  7,0  :  PRINT 

9690  GOTO  9480 

9700  ' 

9710  PRINT  "Do  you  let  the  water  run  while  you  wash  and  rinse  the  dishes?" 
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tl] 

Yea" 

[2: 

Soaetiaes" 

[3] 

No 

=  1 

OR  ANSS  = 

=  2 

THEN  RINSE 

=  3 

OR  ANSS  = 

Answer 

"  OR  ANSS  =  "Y" 

2  :  GOTO  9830 
"  OR  ANSS  =  "N" 

1,  2,  or  3 


ANSS 


THEN  RINSE  =  1  :  GOTO  9830 


THEN  RINSE 


GOTO  9830 


Try  again. 


HWCDIFF 

1  THEN  9920  ELSE  9940 
"When  washing  dishes  by  hand,  use  the  other  sink  (or  a  dishpan  if 
one  sink)  to  hold  your  rinse  water.   This  could  save  you  3 


9720  PRINT 

9730  PRINT 

9740  INPUT 

9750  PRINT 

9760  IF  VAL(ANSS) 

9770  IF  VAL(ANSS) 

9780  IF  VAL(ANSS) 

9790  COLOR  7,1 

9800  PRINT  "  You  «ust  enter  either 

9810  COLOR  7,0  :  PRINT 

9820  GOTO  9710 

9830  IF  RINSE  =  3  THEN  10110 

9840  RINSECOUNT  =  1 

9850  IF  RINSE  =  1  THEN  HD  =  2.4  ELSE  9870 

9860  CD  =  3  :  GOTO  9880 

9870  HD  =  .8  :  CD  =  1 

9880  GOSUB  12500 

9890  RINSECDC  =  CWCDIFF 

9900  RINSEHDC  = 

9910  IF  RINSE  = 

9920  RINSE1S  = 

you  only  have 

gallons  of  waterper" 

9930  GOTO  9950 

9940  RINSE1S  ■  "When  washing  dishes  by  hand,  use  the  other  sink  (or  a  dishpan  if 

you  only  have   one  sink)  to  hold  your  rinse  water.   This  could  save  you  1 

gallons  of  waterper" 

9950  IF  FRC  =  1  OR  SOURCE  *  3  THEN  9980 

9960  RINSE2S  =  "wash.   On  an  annual  basis,  you  could  save  S##  per  year  on  water 

cost  and  S##  peryear  for  the  energy  used  to  heat  your  water." 

9970  GOTO  9990 

9980  RINSE2S  =  "wash.   On  an  annual  basis,  you  could  save  S##  per  year  on  the 

energy  required  to  heat  your  water." 

9990  IF  RINSE  =  1  THEN  SUM  =  SUM  «  7  ELSE  10050 

10000  HOTSUM  =  HOTSUM  *  7  »  .8  :  SUMDIFF  =  SUMDIFF  ♦  3 

10010  RINSECOLD  -   7  «  365  :  RINSEHOT  =  7  »  .8  »  365 

10020  HOT  =  RINSEHOT  :  GOSUB  12600 

10030  RINSEENERGY  =  HOTCOST 

10040  GOTO  10160 

10050  IF  RINSE  =  2  THEN  SUM  =  SUM  *  5  ELSE  10110 

10060  HOTSUM  =  HOTSUM  *  5  »  .8  :  SUMDIFF  =  SUMDIFF  *  1 

10070  RINSECOLD  =  5  »  365  :  RINSEHOT  =  5  »  .8  »  365 

10080  HOT  =  RINSEHOT  :  GOSUB  12600 

10090  RINSEENERGY  =  HOTCOST 

10100  GOTO  10160 

10110  SUM  =  SUB  *  4  :  HOTSUM  =  HOTSUM  •  4  »  .8  :  '  RINSE  =  No 

10120  RINSECOLD  =  4  «  365  :  RINSEHOT  =  4  »  .8  «  365 

10130  HOT  =  RINSEHOT  :  GOSUB  12600 

10140  RINSEENERGY  =  HOTCOST 

10150  ' 


HOTDIFF  =  HOTDIFF  *  2.4 


HOTDIFF  =  HOTDIFF 


.8 
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10160  PRINT  "Do  you  let  the  water  run  to  get  cold  when  getting  a  drink?" 

10170  PRINT  "     [1]   Yes" 
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10180 

10190 

10200 

10210 

10220 

10230 

10240 

10250 

10260 

10270 

10280 

10290 

drink, 

10300 

10310 

10320 

10330 

10340 

10350 

10360 

10370 

10380 

10390 

10400 

10410 

10420 

10430 

10440 

10450 

10460 

10470 

10480 

10490 

10500 

10510 

10520 

10530 

10540 

10550 

10560 

10570 

10580 

10590 

10600 

10610 

10620 

10630 

10640 


y"  OR  ANSS  =  "Y"  THEN  DRINK  =  1  :  GOTO  10280 


2  :  GOTO  10280 
'•  OR  ANSS  =  "N"  THEN  DRINK 


GOTO  10280 


PRINT  "     C21   Sometimes" 

INPUT  "     C31   No  Answer  =  ",  ANSS 

PRINT 

IF  VAL(ANSS)  =  1  OR  ANSS  =  ' 

IF  VAL(ANSS)  =  2  THEN  DRINK 

IF  VAL(ANSS)  =  3  OR  ANSS  =  ' 

COLOR  7,1 

PRINT  "  You  »ust  enter  either  1,  2,  or  3....  Try  again.  "; 

COLOR  7,0  :  PRINT 

GOTO  10160 

IF  DRINK  =  3  THEN  10330 

DRINKS  =  "Instead  of  letting  the  water  run  to  get  cold  while  getting  a 

place  a  water  bottle  in  the  refrigerator  to  keep  the  water  cold," 
SUMDIFF  =  SUMDIFF  ♦  .5 

IF  DRINK  =  1  OR  DRINK  =  2  THEN  SUM  =  SUM  *  1 
DRINKCOLD  =  1  «  365  :  GOTO  10360 
IF  DRINK  =  3  THEN  SUN  =  SUN  ♦  .5 
DRINKCOLD  =  .5  «  365 


clothes  washer?" 


OR  ANSS 
OR  ANSS 


PRINT  "Do  you  have 

PRINT  "     [1]   Yes" 

INPUT  "     C23   No  Answer  =  ",  ANSS 

PRINT 

IF  VAL(ANSS)  =  1  OR  ANSS  = 

IF  VAL(ANSS)  =  2  OR  ANSS  = 

COLOR  7,1 

PRINT  "  You  »ust  enter  either  1  or  2. 

COLOR  7,0  :  PRINT 

GOTO  10360 

IF  CLOTHES  =  2  THEN  10870 

PRINT 


"Y"  THEN  CLOTHES 
"N"  THEN  CLOTHES 

Try  again.  "; 


GOTO  10460 
GOTO  10460 


Answer  =  " ,  ANSS 


INPUT  "How  iiany  loads  do  you  wash  a  week? 

PRINT 

IF  VAL(ANSS)  >=  1  AND  VAL(ANSS)  <=    10  THEN  LC  =  VAL(ANSS)  :  GOTO  10550 

COLOR  7,1 

PRINT  "  Please  enter  a  number  between  1  and  10.  "; 

COLOR  7,0  :  PRINT  :  PRINT  :  GOTO  10490 

ANT  =  LC  »  50  /  7 

HOTSUN  =  HOTSUN  *  AMT  «  .5 

SUM  =  SUB  *  AMT 

CLOTHESCOLD  =  AMT  «  365  :  CLOTHESHOT  =  AMT  »  .5  »  365 

HOT  =  CLOTHESHOT  :  GOSUB  12600 

CLOTHESENERGY  =  HOTCOST 

PRINT 

PRINT  "Do  you  wash  a  full  load  of  clothes?" 
PRINT  "     [1]  Almost  always" 
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10650  PRINT  "     12)  Sometimes" 

10660  INPUT  "     [33  Not  usually  Answer  =  ".  ANSS 

10670  PRINT 

10680  IF  VAL(ANSS)  =  1  OR  VAL(ANSS)  =  2  OR  VAL(ANSS)  =  3  THEN  FULLCLOTHES  = 

VAL(ANSS)  :  GOTO  10730 

10690  COLOR  7,1 

10700  PRINT  "  You  »ust  enter  either  1,  2,  or  3....  Try  again.  "; 

10710  COLOR  7,0  :  PRINT 

10720  GOTO  10630 

10730  IF  FULLCLOTHES  =  1  THEN  10870 

10740  CLOTHESCOUNT  =  1 

10750  HD  =  AMT  •  .5 

10760  CD  =  ABT  :  GOSUB  12500 

10770  CLOTHESCDC  =  CWCDIFF 

10780  CLOTHESHDC  =  HWCDIFF 

10790  CL0THE51S  =  "You  should  always  wash  a  full  load  of  clothes.   A  clothes 

washer  will  use    about  50  gallons  of  water  per  wash.   Wash  a  full  load  to  use  the 

water  wore  effici-" 

10800  IF  SOURCE  =  3  THEN  10840 

10810  IF  FRC  =  1  THEN  10860 

10820  CL0THE52S  ■  "ently.   On  an  annual  basis,  you  spend  about  S##  on  the  water 

cost,  and  S###  on  the  energy  required  to  heat  the  water." 

10830  GOTO  10870 

10840  CL0THES2S  =  "ently.   On  an  annual  basis,  you  spend  about  5#  to  pump  your 

water  and  S###  on  the  energy  required  to  heat  the  water." 

10850  GOTO  10870 

10860  CL0THES2S  ■  "ently.   On  an  annual  basis,  you  spend  about  €###  per  year  on 

the  energy  requiredto  heat  your  water." 

10870  CLS  :  LOCATE  7,1 

10880  ' 

10890  '.•.*...».....».....»...........«*....*..»....».«.»»•*•.».*.».*»*«».».*».. 

10900  '  ...  RESULTS  ... 

10910  /....... ............................................................ ...... 

10920  ' 

10930  COLOR  2,0 

10940  PRINT  "     Thank  you  for  running  this  program.   Your  results  should  be 

coiling  out  onthe  printer.   If  they  aren't,  then  turn  the  printer  on.   Thanks 

again ."  :  COLOR  7,0 

10950  LPRINT  CHRS(27)  ;CHRS(37)  ;CHRS(67>  ;"174"; 

10960  LPRINT  CHRS(28) 

10970  LPRINT  CHRSOl);  "  Water  Conservation  Analysis  Results"; 

10980  LPRINT  CHRSC27) ;CHRS<37) ;CHRS<67) ;"174"; 

10990  LPRINT  CHRSC28) 

11000  ' 

11010  '  =  =  =  TABULAR  RESULTS  =  ■  = 

11020  ' 

11030  LPRINT:  LPRINT  USING  "Below  is  a  table  showing  your  water  habits,  &."; 

NNAHES 

11040  LPRINT  "  Hot  Water 

11050  LPRINT  "  Water  Used  (Gal/yr)      Energy  Cost" 
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0  THEN  11100 
:  LPRINT  TAB(27) 


11060  LPRINT  "     Water  Function        Total 
11070  LPRINT  "     

11080  IF  SOFTENER  =  2  OR  SOFTENER 
11090  LPRINT  "     Water  Softener 

";  SOFTENERCOLD 

11100  IF  BS  •  1  THEN  11110  ELSE  11130 

11110  LPRINT  "     Bath";:  LPRINT  TAB(27)  USING  "##### 

###.#0";  TUBCOLD,  TUBHOT,  TUBENERGY 

11120  GOTO  11140 

11130  LPRINT  "     Shower";:  LPRINT  TAB(27>  USING  "##### 

###.#0";  SHOWERCOLD,  SHOWERHOT,  SHOWERENERGY 


Hot 


USING  "##### 


(S/yr)" 


11140  LPRINT  " 

••;  FLUSHCOLD 

11150  IF  SEX  =  2 
11160  LPRINT  " 
##.#0";  SHAVECOLD, 
11170  LPRINT  " 


Toilet" 


LPRINT  TABC27)  USING  "##### 


3  THEN  11170 

:  LPRINT  TAB(28>  USING  "#### 
SHAVEENERGY 

LPRINT  TAB<28)  USING 


■#### 


OR  SHAVE  = 

Shaving"; 

SHAVEHOT, 

Brushing  Teeth" 

;  TEETHCOLD 

Washing  Hands";:  LPRINT  TAB(28)  USING"#### 
HANDSCOLD,  HANDSHOT,  HANDSENERGY 
THEN  11220 
Dishwasher";:  LPRINT  TAB (27)  USING  "##### 
###.#0";  DISHCOLD,  DISHHOT,  DISHENERGY 
11210  GOTO  11230 

Dish  washing";:  LPRINT  TAB (27)  USING  "##### 

RINSECOLD,  RINSEHOT,  RINSEENERGY 
Drinking";:  LPRINT  TAB<28)  USING  "#### 


11180  LPRINT  " 
####       ##.#0" 
11190  IF  DISH  =  2 
11200  LPRINT  " 


2  THEN  11260 

Clothes  Washer";:  LPRINT  TAB(27)  USING  "##### 
;  CLOTHESCOLD,  CLOTHESHOT,  CLOTHESENERGY 

USING  "Total  =  ######       Total  =  #####"; 


11220  LPRINT  " 
#####      ###.#0" 
11230  LPRINT  " 

";  DRINKCOLD 

11240  IF  CLOTHES  = 

11250  LPRINT  " 

#####      ###.#0" 

11260  LPRINT  TABU8)  USING  "Total  =  ######       Total  =  #####";  SUB  »  365, 

HOTSUN  »  365 

11270  IF  SOURCE  <>  3  THEN  11300 

11280  P  =  (62.4  «  SUH  /  7.48  •  (1.1  «  DEPTH  *  144  »  40  /  62.4))  /  .25 

11290  APC  =  P  «  3.766E-07  »  KWAT  »  365  :  '  APC  =  Annual  Punping  Cost,  P  =  Power 

11300  ON  HEAT  GOTO  11320,  11350,  11380 

11310  '  AEC  =  Annual  Energy  Cost 

11320  AEC  =  KWAT  «  8.34  »  60  /  BTU  /  .9  »  HOTSUN  «  365 

11330  LPRINT  USING"Your  annual  electric  cost  to  heat  your  water  is  S####.#0 

";AEC; 

11340  GOTO  11400 

11350  AEC  =  GAS  »  8.34  •  60  /  BTU  /  .7  »  HOTSUM  »  365 

11360  LPRINT  USING  "Your  annual  gas  cost  to  heat  your  water  is  S###.#0  ";AEC; 

11370  GOTO  11400 

11380  AEC  =  LP  •  8.34  •  60  /  BTU  /  .7  »  HOTSUN  «  365 

11390  LPRINT  USING  "  Your  annual  LP  cost  to  heat  your  water  is  S###.#0  ";AEC; 

11400  IF  SOURCE  =  3  THEN  11410  ELSE  11430 

11410  LPRINT  "and  the  annual  cost" 

11420  LPRINT  USING  "to  punp  your  water  is  S##.";  APC  :  GOTO  11520 
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LPRINT  :  NOTWISE 


NOTWISE 


=  1 
SHOWER, 


SH0WER«4,  SHOWER'4- 


11430  IF  METER  =  2  THEN  LPRINT  "."  :  GOTO  11520 

11440  IF  UNITS  =  1  THEN  TOTWATER  =  SUN  /  1000  ELSE  TOTWATER  =  SUN  /  748 

11450  IF  SOURCE  =  1  THEN  FF  =  1.3  :  GOTO  11500 

11460  IF  SOURCE  =  2  THEN  FF  =  1.5  :  GOTO  11500 

11470  ' 

11480  '  FF  =  Fudge  Factor,  used  to  increase  WCOST  to  cover  service  charges. 

11490  ' 

11500  LPRINT  "and  your  annual  water" 

11510  LPRINT  USING  "cost  is  S###  per  year.";  TOTWATER  »  365  «  WCOST  «  FF 

11520  LPRINT 

11530  ' 

11540  '  =  =  =  PRINTED  SUGGESTIONS  SECTION  =  =  = 

11550  ' 

11560  LPRINT  "BELOW  ARE  SOME  INSTRUCTIONS  THAT  MAY  HELP  YOU  CONSERVE  ON  WATER.' 

11570  LPRINT 

11580  LPRINT  CHRS(27);CHRS(37);CHRS(67);"i60"; 

11590  LPRINT  CHRSC28); 

11600  IF  TUBCOUNT  =  1  THEN  LPRINT  TUB1S  ELSE  11650 

11610  IF  FRC  =  1  THEN  11840 

11620  LPRINT  USING  TUB2S;  TUBCDC,  TUBHDC  : 

11630  GOTO  11650 

11640  LPRINT  USING  TUB2S;  TUBHDC  :  LPRINT 

11650  IF  SHOWERCOUNT  =  1  THEN  LPRINT  USING  SH0WER1S; 

SH0WER«4».67,  SH0WER»4».67  ELSE  11710 

11660  LPRINT  SH0WER2S 

11670  IF  FRC  =  1  THEN  11700 

11680  LPRINT  USING  SH0WER3S;  SHOWERCDC,  SHOWERHDC 

11690  GOTO  11710 

11700  LPRINT  USING  SH0WER3S;  SHOWERHDC  :  LPRINT  :  NOTWISE 

11710  IF  SHAVECOUNT  =  1  THEN  LPRINT  SHAVE1S  ELSE  11760 

11720  IF  FRC  =  1  OR  SOURCE  =  3  THEN  11750 

11730  LPRINT  USING  SHAVE2S;  SHAVECDC,  SHAVEHDC  :  LPRINT 

11740  GOTO  11760 

11750  LPRINT  USING  SHAVE2S;  SHAVEHDC  :  LPRINT  :  NOTWISE  = 

11760  IF  TEETHCOUNT  =  1  THEN  LPRINT  TEETH1S  ELSE  11790 

11770  IF  FRC  =  1  OR  SOURCE  =  3  THEN  LPRINT  :  NOTWISE  =  1  : 

11780  LPRINT  USING  TEETH2S;  TEETHCDC  :  LPRINT  :  NOTWISE  = 

11790  IF  HANDSCOUNT  =  1  THEN  LPRINT  HAND51S  ELSE  11840 

11800  IF  FRC  =  1  OR  SOURCE  =  3  THEN  11830 

11810  LPRINT  USING  HANDS2S;  HANDSCDC,  HANDSHDC  :  LPRINT 

11820  GOTO  11840 

11830  LPRINT  USING  HANDS2S;  HANDSHDC  :  LPRINT  :  NOTWISE  = 

11840  IF  DISHCOUNT  =  1  THEN  LPRINT  FULLDISH1S  ELSE  11890 

11850  IF  FRC  =  1  THEN  11880 

11860  LPRINT  USING  FULLDISH2S;  DISHCDC,  DISHHDC 

11870  GOTO  11890 

11880  LPRINT  USING  FULLDISH2S;  DISHHDC  :  LPRINT 

11890  IF  RINSECOUNT  ■  1  THEN  LPRINT  RINSE1S  ELSE  11940 

11900  IF  FRC  =  1  OR  SOURCE  =  3  THEN  11930 

11910  LPRINT  USING  RINSE2S;  RINSECDC,  RINSEHDC 


LPRINT  :  NOTWISE  =  1 


=  1 


NOTWISE 


GOTO  11790 


NOTWISE  =  1 


LPRINT  :  NOTWISE 


NOTWISE  =  1 


LPRINT  :  NOTWISE  =  1 
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11920  GOTO  11940 

11930  LPRINT  USING  RINSE2S;  RIN5EHDC  :  LPRINT  :  NOTWISE  =  1 

11940  IF  DRINK  =  1  OR  DRINK  =  2  THEN  LPRINT  DRINKS  :  LPRINT  :  NOTWISE  =  1 

11950  IF  CLOTHESCOUNT  =  1  THEN  LPRINT  CL0THE51S  ELSE  12000 

11960  IF  FRC  =  1  THEN  11990 

11970  LPRINT  USING  CL0THES2S;  CLOTHESCDC,  CLOTHESHDC  :  LPRINT  :  NOTWISE  =  1 

11980  GOTO  12000 

11990  LPRINT  USING  CL0THES2S;  CLOTHESHDC  :  LPRINT  :  NOTWISE  =  1 

12000  IF  NOTWISE  =  0  THEN  12300 

12010  IF  FRC  =  1  THEN  12070 

12020  IF  UNITS  =  2  THEN  12050 

12030  WATER  =  SUMDIFF  «  365  /  1000 

12040  GOTO  12060 

12050  WATER  =  SUMDIFF  •  365  /  748 

12060  WC  =  WATER  »  WCOST 

12070  HWC  =  AEC  /  HOTSUM  «  HOTDIFF 

12080  IF  FRC  =  1  THEN  12140 

12090  IF  SOURCE  =  3  THEN  12190 

12100  FOR  I  =  1  TO  80  :  LPRINT  "•"|  :  NEXT  I 

12110  LPRINT  USING  "If  you  would  follow  the  instructions  above  you  could  save 

approximately  S###  per  year  on  your  water  bill,  and  S###  per  year  on  energy 

used  to  heat  your   water.";  WC;  HWC 

12120  FOR  I  =  1  TO  80  :  LPRINT  "  =  ";  :  NEXT  I 

12130  GOTO  12330 

12140  FOR  I  =  1  TO  80  :  LPRINT  "=";  :  NEXT  I 

12150  LPRINT  USING  "Since  you  are  charged  a  flat  rate  for  your  water,  there  is 

no  incentive  to  savewater  in  your  community.   But  if  you  would  follow  the 

instructions  given  above, you  could  save  approximately  S###  per  year  on  energy 

used  to  ";HWC; 

12160  LPRINT  "heat  your  water." 

12170  FOR  I  =  1  TO  80  :  LPRINT  "=";  :  NEXT  I 

12180  GOTO  12330 

12190  DAPC  =  APC  /  SUM  »  SUMDIFF 

12200  FOR  I  =  1  TO  80  :  LPRINT  "  =  ";  :  NEXT  I 

12210  LPRINT  USING  "If  you  would  follow  the  instructions  above,  you  could  save 

about  S#  per  year  onyour  punping  cost,  and  $###  per  year  on  the  energy  used  to 

heat  your  hot  water.";  DAPC;  HWC 

12220  IF  SOFTENER  =  2  THEN  12280 

12230  CD  =  REGENDAY  :  GOSUB  12570 

12240  REGENCOST  =  CWCDIFF 

12250  LPRINT  USING  "Since  you  have  a  water  softener,  it  is  estimated  that  you 

spend  $###  per  year  on  salt  for  regeneration  of  your  softener.   This  is  based  on 

salt  costing  S5.00  per  100  pounds.   It  is  also  estimated  that  you  spend  s# 

";SALT,  REGENCOST; 

12260  LPRINT  "for  water  used  during" 

12270  LPRINT  "regeneration.   If  these  costs  seem  high,  you  should  analyze  your 

water  habits  to  try  to  reduce  this  cost." 

12280  FOR  I  =  1  TO  80  :  LPRINT  "=";  :  NEXT  I 

12290  GOTO  12330 

12300  FOR  I  =  1  TO  80  :  LPRINT  "=";  :  NEXT  I 
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12310  LPRINT  USING  "You  are  a  wise  water  user  &,  and  I  would  like  to 

congratulate  you.";  NNANES 

12320  FOR  I  =  1  TO  80  :  LPRINT  "  =  ";    :    NEXT  I 

12330  LPRINT  CHRS(12>; 

12340  LPRINT  CHRS(27);  CHRS<37>;  CHRS(67);  "001";  CHRSI30); 

12350  PRINT  :  PRINT 

12360  ' 

12370  PRINT  "Do  you  want  to  run  the  program  again?" 

12380  PRINT  "     CI]   Yes" 

12390  INPUT  "     [21   No  Answer  =  "j  ANSS 

12400  IF  VAL(ANSS)  =  1  OR  ANSS  =  "Y"  OR  ANSS  =  "y"  THEN  CLS  :  GOTO  2140 

12410  IF  VAL(ANSS)  =  2  OR  ANSS  =  *N"  OR  ANSS  =  "n"  THEN  RUN 

12420  PRINT  :  COLOR  7,1 

12430  PRINT  "  Enter  either  a  1  or  2 Try  again.  "; 

12440  COLOR  7,0  :  PRINT  :  PRINT  :  GOTO  12370 

12450  ' 

12460  '*«»»*«*»****»*#*#*»*»**»**«*»»*»***+«*«»»»*»*»**»***»*<!*«**-««-****»«**-» 

12470  '  ...  SUBROUTINES  •  «  • 

12490  ' 

12500  IF  HEAT  =  1  THEN  EFF  =  .9  ELSE  EFF  =  .7 

12510  HWCDIFF  =  ENERGYCOST  •  8.34  »  60  /  BTU  /  EFF  •  HD  •  365 

12520  IF  SOURCE  =  3  THEN  12570 

12530  IF  UNITS  =  1  THEN  12540  ELSE  12550 

12540  CWCDIFF  =  CD  »  WCOST  /  1000  ■  365  :  GOTO  12560 

12550  CWCDIFF  =  CD  «  WCOST  /  748  «  365 

12560  RETURN 

12570  P  =  (62.4  »  CD  «  365  /  7.48  •  (1.1  •  DEPTH  *  144  •  40  /  62.4))  /  .25 

12580  CWCDIFF  =  P  •  3.766E-07  •  KWAT 

12590  RETURN 

12600  IF  HEAT  =  1  THEN  EFF  =  .9  ELSE  EFF  =  .7 

12610  HOTCOST  =  ENERGYCOST  •  8.34  »  60  /  BTU  /  EFF  »  HOT 

12620  RETURN 

12630  ' 

12640  '*»**»**»«*#**»*»»**»****»«***»»*»**»#**»****»*•»» *»#*»**»*»*4*****«»»»**4 

12650  '  ...  ERROR  STATEMENT  «  »  • 

12660  '*****»*****■******»**•»»«****«»•****»*»*»***•»«**•»*»*»»**»*•»•*»»»***••*..• 

12670  ' 

12680  CLS  :  LOCATE  12,1  :  COLOR  4,0 

12690  PRINT  USING  "I'm  sorry,  but  an  error  has  been  detected  in  this  program. 

It  is  error  number  ###.   Please  note  the  error  number.   If  you  want  to  try 

again,  then  type   the  word  RUN  and  press  the  RETURN  key.";  ERR 

12700  COLOR  7,0  :  END 
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Glossary  for  the  variables  used  in  the 
Residential  Water  Conservation  Program. 
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Table  B.l   Glossary  of  the  variables  used  in  the  Residential  Water 
Conservation  Program. 


Variable  Name 


Definition 


AS Temporary  storage  for  data  file  information. 

AEC... Annual  energy  cost  to  heat  the  water. 

AHT Average  amount  of  water  used  per  day  when  washing  clothes. 

ANSS..... Temporary  storage  for  a  response  to  a  question. 

AFC Annual  pumping  cost . 

B5 Response  to  user  taking  either  a  bath  or  shower. 

BTU British  Thermal  Units  for  different  types  of  HEAT. 

CD Subroutine  dummy  variable  equal  to  cold  water  difference. 

CITYS Storage  for  citys  name. 

CLOTHES Y/N  response  if  user  has  a  clothes  washer. 

CL0THE51S String  variable. 

CL0THES2S String  variable. 

CLOTHESCDC Cold  water  cost  difference  for  clothes  washing. 

CLOTHESCOLD. . . .  Annual  amount  of  water  used  in  clothes  washer. 

CLOTHESCOUNT . . .  Conditional  variable. 

CLOTHESENERGY . .  Annual  cost  to  heat  clothes  washer  water. 

CLOTHESHDC Hot  water  cost  difference  for  clothes  washing. 

CLOTHESHOT Annual  amount  of  hot  water  used  in  clothes  washer. 

COUNTER Counter  variable. 

COUNTYS Stroage  of  county's  name. 

CWCDIFF Potential  cold  water  cost  difference. 

DAPC Potential  difference  in  annual  pumping  cost. 

DEPTHS User's  private  well  depth. 

DISH Y/N  response  if  user  has  a  dishwasher. 

DI5HCDC Dishwasher  cold  water  cost  difference. 

DISHCOLD Annual  water  amount  used  in  dishwasher. 

DISHCOUNT Conditional  variable. 

DISHENERGY Annual  cost  to  heat  dishwasher  water. 

DISHHDC Dishwasher  hot  water  cost  difference. 

DXSHHOT Annual  water  amount  used  in  dishwasher. 

DRINKS String  variable . 

DRINK Response  to  water  habits  employed  while  getting  a  drink. 

DRINKCOLD Annual  amount  of  drinking  water. 

DTIM Response  about  how  often  dishwasher  is  used  daily. 

EFF Heating  energy  efficiency. 
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Table  B.l  Continued. 


Variable  Name  Definition 

ENERGYCOST Storage  for  energy  cost. 

FC Flat  rate  water  cost. 

FFNS String  storage  for  sequential  data  file  name. 

FL$ First  letter  for  a  community  or  county  name. 

FLATS..., Temporary  storage  for  user's  flat  rate  water  fee. 

FLUSH... Response  to  number  time  per  day  the  user  flushes  the  home 

toilet. 

FLUSHCOLD Annual  water  amount  used  to  flush  toilet. 

FRC. .......... .  Counter  used  if  user  is  charged  a  flat  fee  for  water. 

FULLCLOTHES . . . .  Response  to  water  habits  while  washing  clothes. 

FULLDISH Response  to  water  habits  employed  when  using  dishwasher. 

FULLDISH1S String  variable. 

FULLDISH2S String  variable. 

GA5S Natural  gas  cost  per  1000  cubic  feet. 

GAS.. Natural  gas  cost  per  1000  cubic  feet. 

HANDS.... Response  to  water  habits  employed  while  washing  the  hands. 

HANDS1S String  variable. 

HAND52S String  variable. 

HANDSCDC Cold  water  cost  difference  while  washing  the  hands. 

HANDSC0LD Annual  water  amount  used  to  wash  hands. 

HANDSCOUNT Conditional  variable. 

HANDSENERGY. . . .  Annual  cost  for  heating  the  water  used  in  washing  hands. 

HANDSHDC Hot  water  cost  difference  while  washing  the  hands. 

HANDSH0T Annual  hot  water  amount  used  to  wash  hands. 

HD Subroutine  dummy  variable  equal  to  hot  water  difference. 

HEAT Defines  the  type  of  energy  used  to  heat  water. 

HOT Subroutine  dummy  variable. 

H0TC0ST. Annual  hot  water  energy  cost  used  in  subroutine. 

H0TDIFF Total  summation  of  potential  hot  water  savings. 

H0TSUM Total  summation  of  hot  water. 

HWC Potential  annual  hot  water  energy  cost  savings. 

HWCDIFF Potential  hot  water  cost  difference. 

I For - Next  loop  counter . 

J For-Next  loop  counter. 

K*. Integer  counter. 

KWATS Electricity  cost  per  kilowatt  hour. 
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Table  B.l   Continued. 


Variable  Name  Definition 

KWAT Electricity  cost  per  kilowatt  hour. 

L Counter  variable . 

LC Response  to  the  number  of  loads  of  clothes  washed  per  week. 

LPS Liquid  propane  cost  per  gallon. 

LP Liquid  propane  cost  per  gallon. 

MCU1 Marginal  cost  of  water  for  UNITS  =  1. 

HCU2 Marginal  cost  of  water  for  UNITS  ■  2. 

METER Y/N  response  if  user's  water  is  metered. 

NNAMES Program  users  name. 

NUM Array  storage  number . 

p Power  required  to  lift  one  days  supply  of  water  from  well  to 

house. 

POPS... String  storage  for  population  size. 

POP User's  community  population  size. 

REGEN Number  of  days  between  regeneration  of  water  softener. 

REGENCOST Annual  cost  of  water  used  to  regenerate  water  softener. 

REGENDAY Average  amount  of  water  used  per  day  for  regeneration  of 

water  softener. 

RETS Temporary  storage  for  RETURN  answer. 

RINSE Response  to  water  habits  employed  when  rinsing  dishes  by 

hand. 

RINSE1S String  variable. 

RINSE2S String  variable. 

RINSECDC Cold  water  difference  for  rinsing  dishes. 

RINSECOLD Annual  water  amount  used  to  rinse  dishes  by  hand. 

RINSECOUNT Conditional  variable. 

RINSEENERGY. . . .  Annual  cost  of  heating  dish  rinsing  water. 

RIN5EHDC Hot  water  difference  for  rinsing  dishes. 

RINSEHOT Annual  hot  water  amount  used  to  rinse  dishes  by  hand. 

RWDMWC Rural  water  district  marginal  water  cost. 

RWDNOS Storage  for  rural  water  districts  number. 

SALT Annual  salt  cost  for  regeneration  of  water  softener. 

SEX Used  to  ask  shaving  question  is  user  is  male. 

SHAVE Response  to  the  type  of  water  habits  employed  while  shaving. 

SHAVE1S String  variable . 

SHAVE2S String  varialbe. 

SHAVECDC Shaving  cold  water  cost  difference. 

5HAVEC0LD Annual  water  amount  used  to  shave. 

SHAVECOUNT Conditional  variable. 
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Table  B.l  Continued. 


Variable  Name 


Definition 


5HAVEENERGY. . . .  Annual  cost  for  heating  shaving  water. 

SHAVEHDC Shaving  hot  water  cost  difference. 

5HAVEH0T Annual  hot  water  amount  used  to  shave. 

SHOWER Response  to  length  of  tine  spent  in  the  shower. 

5H0WER1S String  variable . 

SH0WER2S String  variable. 

SH0WER3S String  variable . 

SHOWERCDC Shower  cold  water  cost  difference. 

SHOWERCOLD Annual  water  amount  used  in  shower. 

SHOWERCOUNT Conditional  variable. 

SHOWERENERGY . . .  Annual  cost  for  heating  shower  water. 

SHOWERHDC Shower  hot  water  cost  difference. 

SHOWERHOT Annual  hot  water  amount  used  in  shower. 

SOFTENER Y/N  response  if  user  has  a  water  softener. 

SOFTENERCOLD . . .  Annual  water  amount  used  in  regenerating  water  softener. 

SOURCE User's  water  source. 

SUM Total  summation  of  water. 

SUMDIFF Total  summation  of  potential  water  savings. 

TEETH Response  to  water  habits  employed  while  brushing  the  teeth. 

TEETH1S String  variable. 

TEETH2S String  variable. 

TEETHCDC Cold  water  cost  difference  while  brushing  teeth. 

TEETHCOLD Annual  water  amount  used  to  brush  teeth. 

TEETHCOUNT Conditional  varialble. 

TUB Response  to  water  level  in  bath  tub. 

TUB1S String  variable. 

TUB2S String  variable. 

TUBCDC Bath  tub  cold  water  cost  difference. 

TUBCOLD Annual  water  amount  used  in  bath  tub. 

TUBCOUNT Conditional  variable. 

TUBENERGY Annual  cost  for  heating  both  water. 

TUBHDC Bath  tub  hot  water  cost  difference. 

TUBHOT Annual  hot  water  amount  used  in  bath  tub. 

UNITS String  storage  for  water  meter  units. 

UNITS User's  water  billing  units. 

WATER Potential  annual  water  savings. 

WC. Potential  annual  cold  water  cost  savings. 

WCOSTS Temporary  storage  for  marginal  water  cost. 

WC05T Marginal  water  cost. 
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liunicipal   marginal   water  rates  for  Kansas  cities  and  towns. 
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List  of  the  municipal  marginal  water  rates  in  1983  for  Kansas 
cities  and  towns  [53 . 


Table  C.l   Population  over  100,000  people. 


CITY 


S71000  gallons  S/100  ft3 


Kansas  City 

Topeka 

Wichita 


1.85 
1.07 
0.75 


1.38 
0.80 
0.56 


Table  C.2  Populat 

.ion  between 

10,000  and 

99,999 

people. 

CITY      •/ 

1000  qallons 
1.81 

S/100  ft3 

Arkansas  City 

1.35 

Atchison 

1.10 

0.82 

Chanute 

1.39 

1.04 

Coffeyville 

2.30 

1.72 

Dodge  City 

1.50 

1.12 

El  Dorado 

0.86 

0.65 

Emporia 

1.00 

0.75 

Garden  City 

0.70 

0.52 

Hays 

0.90 

0.67 

Hutchinson 

0.67 

0.50 

Independence 

1.41 

1.05 

Junction  City 

0.91 

0.68 

Lawrence 

1.81 

1.35 

Leavenworth 

1.76 

1.31 

Liberal 

0.70 

0.52 

Manhattan 

0.80 

0.60 

McPherson 

0.73 

0.54 

Olathe 

2.81 

2.10 

Ottawa 

1.18 

0.88 

Parsons 

1.47 

1.10 

Pittsburg 

2.27 

1.70 

Salina 

1.30 

0.97 

Uinfield 

0.85 

0.64 
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Table  C.3 


Population  between  5,000  and 
9.999  people. 


CITY 

S/1000  gallons 
0.86 

S/100  ft3 

Abilene 

0.64 

Augusta 

1.20 

0.90 

Bonner  Springe 

2.20 

1.65 

Colby 

0.58 

0.43 

Concordia 

1.49 

1.11 

Fort  Scott 

1.74 

1.30 

Good land 

0.68 

0.51 

Haysville 

1.25 

0.94 

Iola 

1.44 

1.08 

Pratt 

0.81 

0.61 

Russell 

2.80 

2.09 

Wellington 

2.00 

1.50 

Table  C.4  Population  between  1,000  and 
4,999  people. 


CITY 

S/1000  qallons 
0.95 

S/100  ft3 

Anthony 

0.71 

Arma 

2.10 

1.57 

Ashland 

0.60 

0.45 

Atwood 

0.50 

0.37 

Baldwin  City 

2.47 

1.85 

Baxter  Springs 

1.57 

1.17 

Bel  Aire 

1.00 

0.75 

Belle  Plaine 

1.00 

0.75 

Belleville 

0.79 

0.59 

Beloit 

0.95 

0.71 

Blue  Rapids 

0.59 

0.44 

Buhler 

0.60 

0.45 

Burlingane 

2.00 

1.50 

Burlington 

1.05 

0.79 

Carbondale 

1.50 

1.12 
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Table  C.4  Continued. 

CITY 

S/1000  qallons 
2.00 

S/100  ft3 

Chapman 

1.50 

Cheney 

0.94 

0.70 

Cherryvale 

1.00 

0.75 

Chetopa 

1.56 

1.17 

Cimmarron 

0.42 

0.31 

Clay  Center 

0.73 

0.55 

Clearwater 

2.50 

1.87 

Conway  Springs 

0.99 

0.74 

Council  Grove 

1.32 

0.99 

De  Soto 

1.14 

0.85 

Dighton 

0.72 

0.54 

Downs 

0.42 

0.31 

Edgerton 

3.30 

2.47 

Elkhart 

0.65 

0.49 

Ellinwood 

0.82 

0.61 

Ellis 

1.00 

0.75 

Erie 

0.80 

0.60 

Eudora 

2.73 

2.04 

Eureka 

2.50 

1.87 

Frankfort 

1.00 

0.75 

Fredonia 

2.71 

2.03 

Galena 

1.00 

0.75 

Garnett 

3.85 

2.88 

Girard 

1.50 

1.12 

Goddard 

0.70 

0.52 

Hesston 

1.05 

0.79 

Hiawatha 

1.20 

0.90 

Hill  City 

0.60 

0.45 

Hillsboro 

2.85 

2.13 

Hoisington 

1.10 

0.82 

Holton 

1.63 

1.22 

Horton 

2.40 

1.80 

Hoxie 

0.50 

0.37 

Hugoton 

0.44 

0.33 

Humboldt 

1.60 

1.20 

8  5 


Table  C.4   Conti 

nued. 

CITY 

S/1000  qallons 
0.65 

57100  ft3 

Johnson  City 

0.49 

Kingman 

1.00 

0.75 

Kinsley 

0.55 

0.41 

Kiowa 

2.00 

1.50 

LaCrosse 

1.70 

1.27 

Grandview  Plaza 

0.69 

0.51 

Greensburg 

0.55 

0.41 

Harper 

0.80 

0.60 

Haven 

0.34 

0.25 

Herington 

1.36 

1.02 

LaCygne 

1.05 

0.79 

Lakin 

0.30 

0.22 

Lamed 

0.65 

0.49 

Leoti 

0.30 

0.22 

Lincoln  Center 

0.67 

0.50 

Lindsborg 

0.96 

0.72 

Louisburg 

3.00 

2.24 

Lyndon 

1.40 

1.05 

Lyons 

0.52 

0.39 

Madison 

1.25 

0.94 

Mankato 

1.45 

1.08 

Marysville 

1.27 

0.95 

Meade 

1.40 

1.05 

Medicine  Lodge 

0.70 

0.52 

Minneapolis 

1.00 

0.75 

Moundridge 

0.80 

0.60 

Mulvane 

1.25 

0.94 

Ness  City 

1.30 

0.97 

Nickerson 

0.60 

0.45 

North  Newton 

1.00 

0.75 

Norton 

0.48 

0.36 

Oakley 

0.59 

0.44 

Oberlin 

0.29 

0.22 
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Table  C.4  Cont 

inued. 

CITY 

S/1000  qallons 
4.55 

S/100  ft3 

Ogden 

3.40 

Osage  City 

1.23 

0.92 

Osawatomie 

1.67 

1.25 

Osborne 

0.40 

0.30 

Oskaloosa 

2.00 

1.50 

Oswego 

2.90 

2.17 

Paolo 

1.35 

1.01 

Park  City 

1.00 

0.75 

Peabody 

1.34 

1.00 

Phillipsburg 

1.50 

1.12 

Plains 

0.70 

0.52 

Plainville 

0.75 

0.56 

Pleasanton 

1.80 

1.35 

Rose  Hill 

1.80 

1.35 

Rossville 

0.90 

0.67 

Sabetha 

1.80 

1.35 

Sedan 

2.15 

1.61 

Sedgwick 

0.80 

0.60 

Seneca 

0.80 

0.60 

Silver  Lake 

1.55 

1.16 

Smith  Center 

1.26 

0.94 

Solomon 

1.05 

0.79 

South  Hutchinson    0.54 

0.40 

St.  Marys 

0.70 

0.52 

Stafford 

1.00 

0.75 

Stockton 

0.85 

0.64 

Syracuse 

0.50 

0.37 

Tonganoxie 

1.50 

1.12 

Towanda 

2.20 

1.65 

Ulysses 

0.70 

0.52 

Valley  Falls 

1.50 

1.12 

Victoria 

0.95 

0.71 

WaKeeney 

1.00 

0.75 

Wamego 

0.80 

0.60 

Washington 

0.50 

0.37 

Uathena 

1.80 

1.35 

Wellsville 

3.39 

2.54 

Yates  Center 

1.75 

1.31 
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Table  C.5  Population  of  999  or 

less  people. 

CITY 

S/1000  qallons 
3.50 

S/100  ft3 

Admire 

2.62 

Agenda 

0.75 

0.56 

Agra 

0.65 

0.49 

Allen 

2.00 

1.50 

Alma 

0.85 

0.64 

Alton 

0.60 

0.45 

Altoona 

1.75 

1.31 

Arcadia 

2.90 

2.17 

Argon i a 

0.70 

0.52 

Arlington 

0.40 

0.30 

Atlanta 

1.85 

1.38 

Attica 

1.00 

0.75 

Axtell 

1.00 

0.75 

Bazine 

1.10 

0.82 

Belpre 

0.50 

0.37 

Belvue 

1.00 

0.75 

Beverly 

0.80 

0.60 

Bird  City 

0.55 

0.41 

Bison 

0.70 

0.52 

Blue  Hound 

2.00 

1.50 

Bluff  City 

0.60 

0.45 

Bogue 

0.50 

0.37 

Brewster 

0.60 

0.45 

Brookville 

1.00 

0.75 

Brownell 

0.36 

0.27 

Buffalo 

2.50 

1.87 

Burden 

0.85 

0.64 

Burdett 

0.44 

0.33 

Burns 

1.25 

0.94 

Burrton 

1.00 

0.75 

Bushton 

0.44 

0.33 

Cassoday 

2.00 

1.50 

Cawker  City 

0.66 

0.49 

Cedar  Vale 

2.00 

1.50 

Centralia 

1.30 

0.97 
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Table  C.5  Continued. 

CITY      $/ 

1000  gallons 
0.48 

S/100  ft3 

Chase 

0.36 

Chautauqua 

1.75 

1.31 

Circleville 

1.00 

0.75 

Clayton 

0.25 

0.19 

Clifton 

0.35 

0.26 

Clyde 

1.00 

0.75 

Col Iyer 

0.52 

0.39 

Colony 

2.00 

1.50 

Coolidge 

0.50 

0.37 

Copeland 

1.00 

0.75 

Corning 

0.75 

0.56 

Cottonwood  Falls 

2.50 

1.87 

Courtland 

1.00 

0.75 

Cunningham 

0.50 

0.37 

Deerf ield 

0.60 

0.45 

Delphos 

0.70 

0.52 

Den i son 

2.50 

1.87 

Dexter 

1.25 

0.94 

Durham 

1.00 

0.75 

Dwight 

0.50 

0.37 

Easton 

1.20 

0.90 

Elbing 

1.40 

1.05 

Elgin 

0.50 

0.37 

Elk  City 

1.80 

1.35 

Elmdale 

1.00 

0.75 

Emmett 

1.50 

1.12 

Esbon 

2.00 

1.50 

Eskridge 

1.25 

0.94 

Everest 

1.50 

1.12 

Fall  River 

3.00 

2.24 

Florence 

1.00 

0.75 

Fontana 

2.00 

1.50 

Fowler 

0.50 

0.37 

Galesburg 

2.00 

1.50 

Galva 

1.00 

0.75 
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Table  C.5  Cont 

inued. 

CITY 

S/1000  qallons 

S/100  ft3 

Gas 

1.74 

1.30 

Gaylord 

0.91 

0.68 

Geneseo 

1.00 

0.75 

Glade 

0.75 

0.56 

Glen  Elder 

0.96 

0.72 

Goessei 

0.43 

0.32 

Gorham 

3.20 

2.39 

Gove 

0.40 

0.30 

Grainf ield 

0.G4 

0.48 

Grinnell 

0.50 

0.37 

Gypsum 

1.60 

1.20 

Haddam 

1.50 

1.12 

Hanston 

0.40 

0.30 

Hartford 

2.00 

1.50 

Harveyville 

2.00 

1.50 

Haviland 

0.60 

0.45 

Herndon 

0.36 

0.27 

Highland 

1.50 

1.12 

Holcomb 

0.69 

0.52 

Hollenberg 

8.00 

5.98 

Hope 

0.80 

0.60 

Horace 

1.50 

1.12 

Howard 

1.77 

1.32 

Hoyt 

2.80 

2.09 

Hunter 

2.00 

1.50 

Ingalls 

1.00 

0.75 

Inn  an 

0.75 

0.56 

Jamestown 

2.00 

1.50 

Jennings 

0.20 

0.15 

Kanopolis 

0.85 

0.64 

Kanorado 

0.32 

0.24 

Kechi 

2.10 

1.57 

Kensington 

1.70 

1.27 

Kirwin 

0.50 

0.37 

Kismet 

0.75  . 

0.56 
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Table  C.5  Continued. 

CITY 

S/1000  qallons 
1.50 

S/100  ft3 
1.12 

Lancaster 

LeRoy 

2.00 

1.50 

Lebanon 

2.00 

1.50 

Lebo 

2.40 

1.80 

Lecompton 

1.25 

0.94 

Lehigh 

0.50 

0.37 

Lewis 

0.50 

0.37 

Liebenthai 

1.00 

0.75 

Linn 

0.80 

0.60 

Little  River 

2.00 

1.50 

Long  Island 

0.75 

0.56 

Longford 

0.44 

0.33 

Longton 

1.20 

0.90 

Lorraine 

1.00 

0.75 

Lucas 

0.75 

0.56 

Luray 

1.00 

0.75 

Manchester 

1.50 

1.12 

Hanter 

1.00 

0.75 

Maple  Hill 

1.30 

0.97 

Hatfield  Green 

2.50 

1.87 

Mayfield 

2.24 

1.68 

HcCune 

3.00 

2.24 

HcFarland 

1.50 

1.12 

McLouth 

2.80 

2.09 

Melvern 

1.50 

1.12 

Milford 

1.40 

1.05 

Miltonvale 

1.00 

0.75 

Mineral 

1.32 

0.99 

Noline 

1.50 

1.12 

Montezuma 

0.60 

0.45 

Morrowville 

1.00 

0.75 

Hound  City 

3.30 

2.47 

Hount  Hope 

0.22 

0.16 

Hunden 

0.80 

0.60 

Narka 

1.00 

0.75 
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Table  C.5  Cont. 

Lnued. 

CITY 

SV1000  qallons 

S/100  ft3 
0.75 

Natona 

1.00 

Netawaka 

1.20 

0.90 

New  Strawn 

7.00 

5.24 

Norcatur 

1.50 

1.12 

Nortonville 

1.00 

0.75 

Norwich 

0.75 

0.56 

Oketo 

1.00 

0.75 

Olpe 

1.75 

1.31 

Onaga 

2.00 

1.50 

Oneida 

0.80 

0.60 

Otis 

0.50 

0.37 

Ozawkie 

0.75 

0.56 

Palmer 

0.90 

0.67 

Paradise 

1.00 

0.75 

Park 

0.35 

0.26 

Parker 

1.00 

0.75 

Paxico 

1.00 

0.75 

Peru 

4.00 

2.99 

Pomona 

1.25 

0.94 

Potwin 

2.46 

1.84 

Powhattan 

2.00 

1.50 

Prairie  View 

0.50 

0.37 

Pretty  Prairie 

1.14 

0.85 

Princeton 

2.50 

1.87 

Protection 

0.60 

0.45 

Quenemo 

1.75 

1.31 

Quinter 

0.50 

0.37 

Randolph 

0.75 

0.56 

Ransom 

0.90 

0.67 

Rantoul 

2.00 

1.50 

Raymond 

0.21 

0.16 

Riley 

0.80 

0.60 

Sawyer 

0.50 

0.37 

Scandia 

0.28 

0.21 

Selden 

0.75 

0.56 
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Table  C.5  Continued. 

CITY 

S/1000  qallons 
2.00 

S/100  ft3 

Severy 

1.50 

Sharon  Springe 

0.50 

0.37 

Soldier 

1.30 

0.97 

South  Haven 

1.00 

0.75 

Spearville 

0.40 

0.30 

St.  George 

0.55 

0.41 

Summer! ield 

0.75 

0.56 

Susank 

1.50 

1.12 

Tescott 

0.50 

0.37 

Thayer 

3.50 

2.62 

Ti  niken 

0.80 

0.60 

Toronto 

3.75 

2.81 

Tribune 

1.43 

1.07 

Turon 

0.50 

0.37 

Udall 

1.80 

1.35 

Union town 

4.35 

3.25 

Viola 

2.70 

2.02 

Virgil 

2.00 

1.50 

Wakefield 

1.25 

0.94 

Wallace 

0.90 

0.67 

Walnut 

2.25 

1.68 

Walton 

1.76 

1.32 

Waterville 

0.30 

0.22 

Waverly 

2.42 

1.81 

Westmoreland 

2.00 

1.50 

Wetmore 

14.40 

10.77 

White  City 

1.00 

0.75 

Whitewater 

3.35 

2.51 

Whiting 

0.75 

0.56 

Williamsburg 

2.30 

1.72 

Windom 

0.50 

0.37 

Winona 

0.50 

0.37 

Woodston 

0.80 

0.60 

Zenda 

0.75 

0.56 
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Table  C.6 

Kansas 

towns  that 

charge  their 

customers  a  flat 

rate 

for  water. 

Amount, 

Citv 

Cost.  S 
9.00 

qallons 

Assana 

Unlimited 

Barnes 

6.00 

Unlimited 

Cullison 

7.00 

Unlimited 

Dorrance 

9.50 

Unlimited 

Effingham 

10.00 

Unlimited 

Ford 

7.00 

Unlimited 

Green leaf 

7.00 

Unlimited 

Ogden 

4.50 

Unlimited 

Republic 

7.50 

Unlimited 

Rolla 

11.70 

Unlimited 

Scammon 

7.25 

Unlimited 
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Appendix   D 


Harginal  water  rates  for  Kansas  Rural  Water  Districts. 
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Table  D.l   Marginal  water  rates  for  Kansas 
Rural  Water  Districts  that  are 
named  after  the  town  they  serve. 


Town 


City  of  Beattie 
City  of  Edgerton 
City  of  Richmond 
City  of  Scranton 
City  of  Spring  Hill 


S/1000 

<ja. 

Lions 

1 

.25 

3 

.30 

1 

.95 

5 

.00 

6 

.50 

Table  D.2  Marginal  water  rates  for  Kansas 
Rural  Water  Districts  that  are 
named  after  the  county  they 
serve. 


County 


Allen 

Allen 

Allen 

Anderson 

Anderson 

Anderson 
Anderson 
Anderson 
Atchison 
Atchison 

Atchison 

Atchison 

Atchison 

Barber 

Barber 

Bourbon 
Bourbon 

Butler 
Butler 
Butler 


S/1000 

RWD  No. 

qallons 

7 

2.50 

8 

3.00 

10 

3.02 

2 

1.50 

3 

2.50 

4 

2.52 

4A 

3.50 

5 

4.75 

2 

1.32 

3 

1.10 

4 

2.50 

5 

1.25 

6 

1.30 

1 

1.14 

2 

2.00 

C-2 

2.20 

4 

2.75 

1 

1.70 

3 

3.00 

5 

2.25 
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Table  D.2     Continued. 


S/1000 

County 

RWD  No. 
6 

gallons 

Butler 

2.50 

Butler 

7 

2.00 

Butler 

8 

1.50 

Chase 

1 

2.00 

Chautauqua 

1 

1.37 

Cherokee 

1 

1.20 

Cherokee 

2 

0.61 

Cherokee 

4 

1.00 

Cherokee 

5 

1.55 

Cherokee 

6 

2.75 

Clay 

2 

2.51 

Cloud 

1 

2.20 

Coffey 

2 

3.00 

Coffey 

3 

3.00 

Comanche 

1 

1.25 

Comanche 

2 

3.00 

Cowley 

1 

1.50 

Cowley 

2 

1.25 

Cowley 

3 

1.00 

Cowley 

4 

1.70 

Cowley 

5 

2.20 

Crawford 

4 

0.90 

Crawford 

5 

1.00 

Crawford 

6 

2.02 

Crawford 

7 

1.45 

Crawford 

8 

1.80 

Crawford -Chicopee 

3.00 

Dickenson 

2 

3.03 

Douglas 

1 

2.55 

Douglas 

3 

2.60 

Douglas 

4 

1.60 

Douglas 

5 

2.00 

Douglas 

6 

2.25 

Elk 

1 

3.80 

Ellis 

2 

1.00 
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Table  D.2  Continued. 


County 


Ellis 

Ellis 

Ellis 

Ellsworth 

Franklin 

Franklin 

Franklin 

Franklin 

Greenwood 

Greenwood 

Harvey 

Jackson 
Jackson 
Jefferson 
Jefferson 

Jefferson 
Jefferson 
Jefferson 
Jefferson 
Jefferson 

Jewell 

Johnson 

Johnson 

Johnson 

Johnson 

Johnson 

Kingman 
Labette 
Labette 
Labette 

Labette 

Labette 

Lane 

Leavenworth 

Leavenworth 


s/iooo 

RWD  No. 

gallons 

3 

0.50 

6 

1.00 

7 

3.00 

1 

4.20 

1 

3.79 

3 

3.50 

4 

1.75 

5 

0.76 

1 

4.00 

2 

3.40 

1 

1.80 

1 

1.54 

2 

2.25 

1 

1.76 

2 

0.72 

3 

1.50 

6 

1.50 

9 

3.03 

11 

2.00 

12 

2.02 

1 

1.25 

1 

2.75 

3     ■ 

2.20 

5 

4.12 

6 

3.50 

7 

3.37 

1 

3.00 

1 

4.75 

2 

4.04 

3 

4.55 

4 

3.30 

6 

1.78 

1 

1.03 

2 

2.00 

5 

2.00 
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Table  D.2  Continued. 

S/1000 

County 

RWD  No. 

7 

gallons 

Leavenworth 

2.94 

Leavenworth 

8 

2.85 

Leavenworth 

10 

2.50 

Linn 

1 

3.00 

Lyon 

1 

2.50 

Lyon 

2 

1.50 

Lyon 

3 

2.50 

Lyon 

4 

2.50 

Lyon 

5 

1.60 

Marion 

1 

1.25 

Marion 

4 

2.00 

Marshall 

3 

1.70 

McPherson 

1 

1.15 

McPherson 

4 

2.02 

Miami 

1 

2.22 

Miami 

2 

4.04 

Mitchell 

2 

2.27 

Mitchell 

3 

2.50 

Montgomery 

3 

3.00 

Montgomery 

4 

2.70 

Montgomery 

5 

4.00 

Montgomery 

6 

4.50 

Montgomery 

7 

2.75 

Montgomery 

8 

2.57 

Montgomery 

9 

3.50 

Montgomery 

10 

2.30 

Montgomery 

11 

2.00 

Montgomery 

12 

3.20 

Nemaha 

1 

1.26 

Nemaha 

2 

0.98 

Nemaha 

3 

1.70 

Neoeho 

5 

4.50 

Neosho 

6 

4.92 

Neosho 

7 

1.71 

Neosho 

8 

1.50 
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Table  D.2  Continued. 

5/1000 

County 

RWD  No. 
9 

gallons 

Neosho 

2.07 

Neosho 

10 

3.12 

Neosho 

12 

2.26 

Neosho-Allen 

2 

2.21 

Neosho-Labette 

4 

2.76 

Osage 

2 

2.33 

Osage 

3 

2.00 

Osage 

5 

2.75 

Osage 

6 

3.05 

Osage 

8 

3.50 

Ottawa 

2 

2.30 

Pottawatomie 

1 

1.00 

Pottawatomie 

3 

1.70 

Public  Wholesale 

6 

3.25 

Reno 

1 

1.25 

Republic 

1 

1.12 

Republic 

2 

1.08 

Riley 

1 

2.00 

Russell 

3 

1.90 

Saline 

1 

2.00 

Saline 

2 

1.20 

Saline 

4 

1.26 

Saline 

5 

2.00 

Saline 

6 

1.70 

Sedgwick 

1 

2.30 

Sedgwick 

2 

2.50 

Sedgwick 

3 

2.30 

Shawnee 

1 

1.89 

Shawnee 

4 

1.75 

Shawnee 

6 

2.25 

Shawnee 

7 

3.00 

Shawnee 

11 

2.00 

Sumner 

2 

2.81 

Sumner-Cowely 

4 

3.20 

Wabaunsee 

1 

5.00 

100 


Table  D.2     Continued. 


S/1000 

County 

RWD  No. 

1 

qallons 

Washington 

1.60 

Wilson 

1 

4.00 

Wilson 

9 

5.00 

Wilson 

10 

4.28 

Wilson 

11 

3.50 

Wilson 

12 

2.90 

Wilson 

13 

4.20 

Woodson 

1 

3.40 

Wyandotte/Leavenworth 

1 

2.19 
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Appendix      E 


Statistical   analysis  program  and  graphs. 
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Fortran  program  listing  which  uses  the  USPRP  subroutine  in  the  IM5L  program. 


//•**  PRINT  VN 

//"■-   VNMSG  LOG  PRINT  IQL 

//«*<■  SERVICE  * 

//    EXEC      FORTVCLG 

INTEGER  N,  Nl»  N2,  IDIST,  IOPT,  IER,  I,  L 

REAL  X(25),  WKC50) 
C  •»•  X  =  VECTOR  OF  LENGTH  N2  -  Nl  *  1  CONTAINING  THE  DATA. 
C  *** 

C  «««  N  =  NUMBER  OF  OBSERVATIONS. 
C  »»* 

N  <=  25 
c  *  *  » 

C  »««  Ni  =  THE  RANKED  NUMBER  OF  THE  SMALLEST  OBSERVATION. 

Q     tut 

Nl  =  1 
c  *  *  * 

C  •••  N2  =  THE  RANKED  NUMBER  OF  THE  LARGEST  OBSERVATION. 
C  w* 

N2  =  N 
C  »«• 

C  «»«  IDIST  =  PARAMETER  TO  INDICATE  THE  DIFFERENT  DISTRIBUTIONS. 
C  «««     IDIST  =  1,  NORMAL  DIST. 
C  *•*       "   =  2,  LOGNORMAL  DIST. 
C  •»*       "   =  3,  HALF-NORMAL  DIST. 
C  »««       "   =  4,  EXPONENTIAL  DIST. 
C  «•«       "   =  5,  WEIBULL  DIST. 
C  *•»       "   =  6.  EXTREME  VALUE  DIST. 
C  **  * 

C  ...  IOPT  =  OPTION  INDICATING  THE  NUMBER  OF  PRINTER  COLUMNS. 
C  ...       IOPT  =  0,   80  COLUMNS. 
C  »•»       "   =  1,  129  COLUMNS. 
C  *w* 

IOPT  =  0 

C   *  *  « 

C  »»■  WK  =  WORK  VECTOR  OF  LENGTH  2N 

Q     *  *  » 

C  *••  IER  =  ERROR  PARAMETER  (OUTPUT) 

C  »••       IER  =   67,  SOME  DATA  POINTS  WERE  DELETED  BECAUSE  THEY  DIDN'T 

C  ••»  SATISFY  THE  DISTRIBUTION. 

C  *»»        "   =  131.  INDICATES  THAT  Nl  OR  N2  ARE  SPECIFIED  INCORRECTLY. 

C  •••         "   =  132,  INDICATES  THAT  THE  SAMPLE  SIZE  IS  LESS  THAN  2. 

C  ♦«•        "   =  133,  INDICATES  THAT  IDIST  IS  SPECIFIED  INCORRECTLY. 

C  *■■ 

DO  200  I  =  1,  N 

READ(5,100)  X(I) 
100        F0RMAT(F5.O) 
200  CONTINUE 
C  »•• 

DO  300  IDIST  •  1,  6 

CALL  USPRP  (X,  N,  Nl,  N2.  IDIST,  IOPT,  WK,  IER) 
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Fortran  program  listing  (continued) 


300  CONTINUE 
c  *»« 

STOP 

END 
//LKED.SYSLIB   DD 
//  DD 

//  DD 

//  DD  D5N=5Y51.IMSL.SPFLIB,DI5P=5HR 

//G0.SY3IN  DD  » 
23725 
23725 
26098 
26567 
26645 
29383 
29930 
31599 
32042 
33033 
33554 
34466 
37308 
39837 
41688 
41975 
43461 
43644 
45625 
46981 
47540 
49730 
50474 
51648 
58125 


104 


PROBABILITY  PLOT  FOR  NCH.-AL  ~IST3  tdUTION 


0.56e+O5  » 


0.52E-f05  + 


0.43E+05  + 


O.VtE+05  + 


O.*0£+05  ♦ 


0.366+05  ♦ 

* 


0.32E+O5  + 


« 
0.28E+05  + 


0.2*E*05  + 


.01       .OS  .10      .25       .50       .75      .i0  .95 

Cumulative  Probability 

Figure  E.l  Annual  water  usage  sample  tested  against  the  normal 

distribution  model  using  the  USPRP  subroutine  in  the  IMSL 
fortran  program.   The  sample  was  obtained  from  the  25 
people  who  ran  the  Residential  Water  Conservation  Program. 
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PROBABILITY  PLOT  i-OR  LGGNORHAL  OISTR  I  oUT  I  CM 


$ 


« 
* 

s 
0-*lE-f05  + 


0.37E+C5  + 


0.32E+05  ♦ 


0.306-I-O5  + 


0.286+05  + 


0.26E+05 

+ 

•> 

0.25E+05 

+ 

0 

* 

0.2<»S+05 

+440 

.01 

.05  .10      .25       .50       .75      ..J  .^5 

Cumulative  Probability 

Figure  E.2  Annual  water  usage  sample  tested  against  the  lognormal 

distribution  model  using  the  'JSPRP  subroutine  in  the  IMSL 
fortran  program.   The  sample  was  obtained  from  the  25 
people  who  ran  the  Residential  'water  Conservation  Program. 
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PHQEA3ILITY  PLOT  FOS  HAL.— NIH.ML  DlSTiildUTIOa 


>w»v^P36i;u'jgy 


3.5oc+05  + 


0.526+05 


0.*86+u5  + 


3.++6+0  5  ♦ 


0.406+05  + 


0.366+05  + 


0.326+05  ♦ 


0.236+05  + 


0.2*6+05  +, 


1.13  .25      .50  .75         .90      .,i 


Cumulative  Probability 


Figure  E.3  Annual  water  usage  sample  tested  against  the  half-norxal 
distribution  model  using  the  USPRP  subroutine  in  the  IMS! 
fortran  program.   The  sample  was  obtained  from  the  25 
people  who  ran  the  Residential  Water  Conservation  Program. 
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P^CcAcIlITY  PLOT  FOK  gXPONSW  T IAL  01  S73  [307 IQ,\ 


;wi^:j:;ijCjy 


3 

y 


0.56C+05   + 


0.52E-MD5  + 


0.*86*05  + 


0.*<fc+05  ♦ 


0.36E+05  + 


0.32E+G5  + 


0.23E+05  + 


0.2*6+05  +i 


.01  .25   .50       .75  .90       .95 

Cumulative  Probability 

Figure  E.4  Annual  water  usage  sample  tested  against  the  exponential 
distribution  model  using  the  USPRP  subroutine  in  the  IMSL 
fortran  program.   The  sample  was  obtained  from  the  25 
people  who  ran  the  Residential  Water  Conservation  Program. 
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P*0eA3ILITY    PLOT    FOR    WEI3ULL    01  3TRMUT  Id* 
0.  5  6E+0  5    +0<n>**MO>::>:'^!i<iovMoi>o»>4W«o*^^si»)iU>?^JV^o^o-'1>!S^o-^ 


)»«»»«DKX'rt 


0.+IE+05    + 


0.37E+05    + 


0.32E+O5 


0.306+05    + 


0.23E+G5    + 


0.26e+05    + 

o 

0.256+05    + 


0.2^6+05    +w*oi?<iw 
.01 


.05  .10  .25  .50  .75       .90. 

Cumulative   Probability 


DOvr 
95 


Figure  E.5  Annual  water  usage  sample  tested  against  the  Weibull 

distribution  model  using  the  USPRP  subroutine  in  the  IMSL 
fortran  program.   The  sample  was  obtained  froa  the  25 
people  who  ran  the  Residential  Water  Conservation  Program. 
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PRScAoILITr  PLOT  fOR  EXTREME  VALUE  3 1 STRUUTICN 


0.56E+05  + 


o 

o 

0.52E+05  ♦ 


0.43E+05  ♦ 


O.^OEfGS  + 


0.3OE+O5  ♦ 


0.32E+05  ♦ 


0.23E+U5  * 


0.24E-HJ5  + 


0.20E+G5   t««OO«44O4OO4O4O^V04O4')4««««44O444-«44«««O44aV0CO#U4'J+4«>4w> 

.01  .05     .10        .25      .50     .75   .90. )5 

Cumulative  Probability 

Figure  E.6  Annual  water  usage  sample  tested  against  the  extreme 

value  distribution  model  using  the  USPRP  subroutine  in  the 
IMSL  fortran  program.   The  sample  was  obtained  from  the 
25  people  who  ran  the  Residential  Water  Conservation 
Frogram. 
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ABSTRACT 


Residential  water  conservation  is  becoming  increasingly  important  as 
water  demands  and  costs  increase,  and  existing  supplies  become  less  ade- 
quate.  Conservation  should  be  viewed  as  an  alternative  to  developing  new 
water  supplies  since  water  conserved  from  existing  supplies  can  be  made 
available  to  new  users.   The  first  step  for  a  successful  conservation 
program  is  education.  Thus  a  microcomputer  program  was  written  that  ana- 
lyzes a  person's  water  habits  and  gives  him  an  economic  incentive  to  save 
water,  using  a  printed  copy  of  specific  recommendations. 

The  user  of  the  program  enters  his  source  of  water,  either  municipal 
water  plant,  rural  water  district,  or  private  well.   If  his  water  source 
was  one  of  the  first  two,  then  he  is  asked  to  enter  the  unit  price  for  his 
water,  and  if  not  known,  then  the  computer  aids  him  in  determining  his 
water  cost,  based  on  Kansas  water  rates.   In  the  case  of  the  private  well 
user,  the  program  asks  him  for  the  depth  of  his  well,  and  the  unit  price 
for  electricity--both  are  needed  to  calculate  the  cost  to  pump  the  water 
from  the  well  to  the  home. 

The  user  also  enters  into  the  program  the  type  of  energy  used  to  heat 
the  water,  either  electricity,  natural  gas,  or  liquid  propane.   The  unit 
cost  of  energy  must  also  be  supplied  to  calculate  the  cost  to  heat  the 
water.   If  the  user  does  not  know  the  unit  cost  of  energy,  then  the  program 
uses  default  values. 

The  program  then  asks  the  user  some  questions  about  how  he  uses  water 
at  home,  and  finally  supplies  printed  output  on  the  printer.   This  output 
explains  ways  the  user  might  be  able  to  save  both  water  and  money  by 
conserving  water.   The  suggestions  printed  on  the  output  are  based  upon 


baseline  values  which  reflect  the  use  of  water  by  the  average  American.   A 
descriptive  example  is  shown  which  reflects  the  water  uses  of  the  author. 

Twenty  five  people  (students  and  faculity  members  at  Kansas  State 
University)  ran  the  program  to  determine  the  program's  integerity  and  to 
obtain  a  set  of  data  that  could  be  used  to  determine  the  potential  water 
savings  suggested  by  the  program.   The  program  estimated  that  24  percent 
(227.700  gallons)  of  the  total  water  used  annually  by  the  25  individuals 
could  be  saved.   A  total  of  32  percent  of  the  hot  water  (130,500  gallons) 
was  the  estimated  annual  savings  of  the  25  individuals  provided  the  program 
output  suggestions  were  to  be  followed. 

To  follow  up  after  educating  the  public  about  their  own  water  habits. 
an  educational  program  should  be  developed  to  instruct  people  of  the  physi- 
cal ways  to  go  about  saving  water.   For  example,  instructions  and  detailed 
information  about  installation  of  displacement  devices  in  toilet  tanks, 
installing  low  flow  shower  heads,  and  faucet  aerators  should  be  made 
available. 

A  complete  listing  of  the  program,  along  with  a  glossary  of  the 
variables  used  in  the  program  is  provided  in  the  appendices. 


